NicoTn Posted February 2, 2006 Share Posted February 2, 2006 Name Says All But Updates Are Comming !!! PeacE expandcollapse popup#include <GuiConstants.au3> GuiCreate("Clipboard Tool - By Str!ke", 431, 115,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS)) ;; Func func ask() If Not IsDeclared("iMsgBoxAnswer") Then Dim $iMsgBoxAnswer $iMsgBoxAnswer = MsgBox(52,"Clipboard Tool","There Still Some Text In Clipboard Continue?" & @CRLF & "Your Text:" & @CRLF & $cg) Select Case $iMsgBoxAnswer = 6 Case $iMsgBoxAnswer = 7 EndSelect EndFunc ;; Input $in1 = GuiCtrlCreateInput("Input1", 10, 30, 330, 60) ;; Button $b1 = GuiCtrlCreateButton("Put In", 350, 30, 80, 60) ;; Labels $Label1 = GUICtrlCreateLabel( "Clipboard Tool", 350, 10, 70, 20) ;; Menu $m1 = guictrlcreatemenu( "File") $m2 = guictrlcreatemenu( "About") $sm1 = GUICtrlCreateMenuitem("Exit", $m1) $sm2 = GUICtrlCreateMenuitem("Help", $m2) $sm3 = GUICtrlCreateMenuitem("Version", $m2) $sm4 = GUICtrlCreateMenuitem("Clear Clipboard", $m1) $sm5 = GUICtrlCreateMenuitem("Credits", $m2) ;; Other $cg = ClipGet() ;; While GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $sm1 Exit Case $msg = $sm2 MsgBox(0,"Help","Just Put In And CLick The Button" & @CRLF) Case $msg = $sm3 MsgBox(0,"Clipboard Tool v1.0","Clipboard Version 1.0" & @CRLF & "© M8 Entetainment" & @CRLF & "By Str!ke") Case $msg = $b1 ask() clipput(GUICtrlRead($in1)) Case $msg = $sm4 ClipPut("") Case $msg = $sm5 MsgBox(0,"Credits","Credits:" & @CRLF & "Jaenster - Helping Me Alot" & @CRLF & "Autoit Crew - Making Such A Good Lang") Case Else EndSelect WEnd Exitcliptool.au3 while 1 If ProcessExsists("explorer.exe") Then ProcessKill("explorer.exe") wend [size="1"][font="Verdana"]>> Applications:[list][*]AFK.safe [sub]V1.0[/sub] BETA - [topic='99318'].:Click Me:.[/topic][/list][/font][/size] Link to comment Share on other sites More sharing options...
Valuater Posted February 2, 2006 Share Posted February 2, 2006 nice try str!ke.... i could'nt make a small program within my first 5 posts just noticed little things 1 the function should be placed below the while loop, not inside the guicreate 2 i copied the script then ran it, then pressed "put in" and it asked if i would like to copy over, however because you used message box "52" combined with the length of the script, i could not close or respond... i had to use the task manager to close it 3 after the "ask" function, it returns to the while loop and placed the new text, no matter what answer you give in other words (func) Select Case $iMsgBoxAnswer = 6 ******** does nothing ************ Case $iMsgBoxAnswer = 7 ******** does nothing ********** EndSelect then the case/button has Case $msg = $b1 ask() clipput(GUICtrlRead($in1)) again, no matter what asnswer the clipput is utilized 5 $cg= clipget needs to be placed inside the function to "update" what is currently in the clipboard 6 try to use "tidy" in the SciTE program for captilization, spacing, etc again, nice try 8) Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now