Jump to content

Orochimaru

Member
  • Posts

    3
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    United States

About Orochimaru

Orochimaru's Achievements

0

Reputation

  1. Hey everyone, darn im soo tired i've been trying to find out how to make a dialog box by pressing a shortcutkey. After the dialog has poped up i wanted to type somthing and then click ok and then make it Sleep(3000) after that open notepad and make it Send w/e i typed. But ofcourse i havnt got to do that, thats why im here for help. I did that with a INput box here is the code: HotKeySet("{F5}", "Type") HotKeySet("{F8}", "Pause") HotKeySet("{F9}", "Quit") While 1 Sleep(100) Wend Func Type() While 1 $clip1 = InputBox("Message", "Enter/Paste text to Spam", "" ) Run("C:\Program Files\Starcraft\Starcraft.exe") Sleep(700) $i=0 Do Send("{Enter}") Send("" & $clip1) Send("{Enter}") until $i=10 wend EndFunc Func Quit() While 1 Exit 0 Wend Endfunc Func Pause() While1 Wend Endfunc Basically all that does is when i press F5 a inputbox pops up and what ever i type in it. Gets send to w/e window im on after its sleep time. So i wanted to do that with a Dialog box because i wanted to Send Profiles that are more then 1 line at once. This is what i have so far but it seems to make no sense what so ever: dim $clip1 HotKeySet("{F7}", "Type") HotKeySet("{F9}", "Pause") Func Pause() While 1 Wend Endfunc func type() while 1 $clip1 = Dialog Box Sleep(700) $i=0 Do Send("{Enter}") Send("" & $clip1) Send("{Enter}") until $i=10 wend EndFunc GUICreate("Type What You Want To Spam Below") ; will create a dialog box that when displayed is centered GUISetState (@SW_SHOW) ; will display an empty dialog box $GUI_EVENT_CLOSE = "1" $nEdit = GUICtrlCreateEdit ("Type Here", 3,3,300,180) GUICtrlCreateButton ("Ok", 20,200,50) GUISetState () for $n=1 to 5 GUICtrlSetData ($nEdit,@CRLF & "line "& $n) next $EM_LINEINDEX = 0x00BB $EM_LINEFROMCHAR = 0x00C9 Do $msg = GUIGetMsg() if $msg >0 then $n=GUICtrlSendMsg ($nEdit, $EM_LINEINDEX,-1,0) $nline=GUICtrlSendMsg( $nEdit, $EM_LINEFROMCHAR,$n,0) GUICtrlSetState ($nEdit,256) ; set focus MsgBox (0,"Currentline",$nLine) Endif Until $msg = $GUI_EVENT_CLOSE All this does is when i run it a Dialog box pops up right away and then when i press F7 it types random words or numbers... Also i didnt include #include gui.........au3. because it says "Error reading #include gui.........au3." Can anyone please look at these sources and see if they can help me, i really need it thank you for reading.
  2. Hey everyone, darn im soo tired i've been trying to find out how to make a dialog box by pressing a shortcutkey. After the dialog has poped up i wanted to type somthing and then click ok and then make it Sleep(3000) after that open notepad and make it Send w/e i typed. But ofcourse i havnt got to do that, thats why im here for help. I did that with a INput box here is the code: HotKeySet("{F5}", "Type") HotKeySet("{F8}", "Pause") HotKeySet("{F9}", "Quit") While 1 Sleep(100) Wend Func Type() While 1 $clip1 = InputBox("Message", "Enter/Paste text to Spam", "" ) Run("C:\Program Files\Starcraft\Starcraft.exe") Sleep(700) $i=0 Do Send("{Enter}") Send("" & $clip1) Send("{Enter}") until $i=10 wend EndFunc Func Quit() While 1 Exit 0 Wend Endfunc Func Pause() While1 Wend Endfunc Basically all that does is when i press F5 a inputbox pops up and what ever i type in it. Gets send to w/e window im on after its sleep time. So i wanted to do that with a Dialog box because i wanted to Send Profiles that are more then 1 line at once. This is what i have so far but it seems to make no sense what so ever: dim $clip1 HotKeySet("{F7}", "Type") HotKeySet("{F9}", "Pause") Func Pause() While 1 Wend Endfunc func type() while 1 $clip1 = Dialog Box Sleep(700) $i=0 Do Send("{Enter}") Send("" & $clip1) Send("{Enter}") until $i=10 wend EndFunc GUICreate("Type What You Want To Spam Below") ; will create a dialog box that when displayed is centered GUISetState (@SW_SHOW) ; will display an empty dialog box $GUI_EVENT_CLOSE = "1" $nEdit = GUICtrlCreateEdit ("Type Here", 3,3,300,180) GUICtrlCreateButton ("Ok", 20,200,50) GUISetState () for $n=1 to 5 GUICtrlSetData ($nEdit,@CRLF & "line "& $n) next $EM_LINEINDEX = 0x00BB $EM_LINEFROMCHAR = 0x00C9 Do $msg = GUIGetMsg() if $msg >0 then $n=GUICtrlSendMsg ($nEdit, $EM_LINEINDEX,-1,0) $nline=GUICtrlSendMsg( $nEdit, $EM_LINEFROMCHAR,$n,0) GUICtrlSetState ($nEdit,256) ; set focus MsgBox (0,"Currentline",$nLine) Endif Until $msg = $GUI_EVENT_CLOSE All this does is when i run it a Dialog box pops up right away and then when i press F7 it types random words or numbers... Also i didnt include #include gui.........au3. because it says "Error reading #include gui.........au3." Can anyone please look at these sources and see if they can help me, i really need it thank you for reading.
  3. Hey everyone, darn im soo tired i've been trying to find out how to make a dialog box by pressing a shortcutkey. After the dialog has poped up i wanted to type somthing and then click ok and then make it Sleep(3000) after that open notepad and make it Send w/e i typed. But ofcourse i havnt got to do that, thats why im here for help. I did that with a INput box here is the code: HotKeySet("{F5}", "Type") HotKeySet("{F8}", "Pause") HotKeySet("{F9}", "Quit") While 1 Sleep(100) Wend Func Type() While 1 $clip1 = InputBox("Message", "Enter/Paste text to Spam", "" ) Run("C:\Program Files\Starcraft\Starcraft.exe") Sleep(700) $i=0 Do Send("{Enter}") Send("" & $clip1) Send("{Enter}") until $i=10 wend EndFunc Func Quit() While 1 Exit 0 Wend Endfunc Func Pause() While1 Wend Endfunc Basically all that does is when i press F5 a inputbox pops up and what ever i type in it. Gets send to w/e window im on after its sleep time. So i wanted to do that with a Dialog box because i wanted to Send Profiles that are more then 1 line at once. This is what i have so far but it seems to make no sense what so ever: dim $clip1 HotKeySet("{F7}", "Type") HotKeySet("{F9}", "Pause") Func Pause() While 1 Wend Endfunc func type() while 1 $clip1 = Dialog Box Sleep(700) $i=0 Do Send("{Enter}") Send("" & $clip1) Send("{Enter}") until $i=10 wend EndFunc GUICreate("Type What You Want To Spam Below") ; will create a dialog box that when displayed is centered GUISetState (@SW_SHOW) ; will display an empty dialog box $GUI_EVENT_CLOSE = "1" $nEdit = GUICtrlCreateEdit ("Type Here", 3,3,300,180) GUICtrlCreateButton ("Ok", 20,200,50) GUISetState () for $n=1 to 5 GUICtrlSetData ($nEdit,@CRLF & "line "& $n) next $EM_LINEINDEX = 0x00BB $EM_LINEFROMCHAR = 0x00C9 Do $msg = GUIGetMsg() if $msg >0 then $n=GUICtrlSendMsg ($nEdit, $EM_LINEINDEX,-1,0) $nline=GUICtrlSendMsg( $nEdit, $EM_LINEFROMCHAR,$n,0) GUICtrlSetState ($nEdit,256) ; set focus MsgBox (0,"Currentline",$nLine) Endif Until $msg = $GUI_EVENT_CLOSE All this does is when i run it a Dialog box pops up right away and then when i press F7 it types random words or numbers... Also i didnt include #include gui.........au3. because it says "Error reading #include gui.........au3." Can anyone please look at these sources and see if they can help me, i really need it thank you for reading.
×
×
  • Create New...