F7 Bot By Kuki

kukimen7 · 19 Marca 2010

Mam dla was zrobiony bot do metina, sam wciska F7 co sekundę.

Działa na 100% sam go używam, gdy go włączymy po 10 sekundach zaczyna działać i chodzi tak przez 30 minut.

Jeżeli ktoś chce dłużej lub krócej działającego to PW.

Napisałem go ponieważ nigdzie nie mogłem takiego znaleźć.

BOT

http://www.przeklej.pl/plik/f7-bot-by-kuki-au3-000chs1es5a5

SKAN (jak widać czysty)

http://www.virustotal.com/pl/analisis/da536469384366a4e4e3cf00c0f259eed349fd7e25a5d02f1d93033f5c60ff5d-1269013474

Program potrzebny do uruchomienia

http://www.eprogramy.net/eprogramy/program/2725

SKAN (też czysty)

http://www.virustotal.com/pl/analisis/2f601edd749a68b0f48bb677e3f26766f84c17a26b4012fbc069e7c6d077fb19-1269011696

Admina proszę aby przeniósł do odpowiedniego działu.

Only4Me · 19 Marca 2010

Mojego pomyslu zlodziejaszku i kodu skryptowego

SouI · 19 Marca 2010

Nawet skompilować nie umie... -.- Only4Me - kod był mój, ty go skompilowałeś ._.

Only4Me · 19 Marca 2010

ale czesciowo

@edit

ty a musisz mi juz po minusach jezdzic ?

kukimen7 · 19 Marca 2010

Każdy bot typu auto it działa tak samo skrypty są te same od nikogo nic nie kopiowałem bo jak coś takiego widział to bym ściągnął a nie wrzucał jeszcze raz, szkoda ze są ludzie przewrażliwieni na swoim punkcie. Nie chciałem nic kopiować tylko chciałem pomoc innym po co jakiś skomplikowany bot najprostsze rozwiązania są zwykle najlepsze. Jeżeli Only4Me albo Soul napisaliście coś takiego wcześniej to sory ale ja tego nie moglem znaleźć.

buxer · 26 Marca 2010

jakaś instrukcja do tego bota i jak co zrobić ?? zainstalowałem ściągnąłem 2 rzeczy i co dalej ? :> help bedzie +

kukimen7 · 26 Marca 2010

jakaś instrukcja do tego bota i jak co zrobić ?? zainstalowałem ściągnąłem 2 rzeczy i co dalej ? :> help bedzie +

jak pobierzesz program i go zainstalujesz to klikasz prawym na bota i "Run script" wczesniej musisz odpalic moda z wbudowanym yangbugbotem i otworzyc handlarza

RobeM · 4 Kwietnia 2010

i wy to nazywacie botem i kłócicie się o prawa autorske tego niby waszego pseudo skryptu ?

LOL to wszystko juz napisono przed wami !

mniej miejsca i kodu zajmuje zrobienie programu , wybierającego proces ( gre ) w której nalezy naciskać jakiś przycisk co określony przedział czasu

pobawcie się dzieci może tym jak potraficie

#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <Timers.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <Timers.au3>
#include <GuiConstantsEx.au3>
#include <GuiStatusBar.au3>



Global $label11
Global $probarx
Global $probary
Global	$windowname
Global Const $TRAY_DEFAULT  = 512
Opt("TrayAutoPause", 0)
Opt("TrayMenuMode", 1)

$Keepaliveini = @ScriptDir & "\KeepAlive.ini"
$Path =  @ScriptDir & "\obrazek.jpg"
$Path2 =  @ScriptDir & "\obrazek.bmp"
$Fenster_x = 251
$Fenster_y = 190
$Winpos_x = @DesktopWidth / 1.01 - $Fenster_x / 1
$Winpos_y = @DesktopHeight / 1.12 - $Fenster_y / 1

$Form1_1 = GUICreate("KeepAlive", $Fenster_x, $Fenster_y, $Winpos_x, $Winpos_y ,BitOR($WS_POPUP, $WS_DLGFRAME), $WS_EX_TOPMOST)  ;, $WS_DLGFRAME  $WS_POPUP
$Pic = GUICtrlCreatePic($Path,+01 ,30, $Fenster_x -3, $Fenster_y -31 ,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))  ;,$GUI_WS_EX_PARENTDRAG)   ; ,$Ws_Disabled
GUICtrlSetState ($Pic,$GUI_DISABLE)
$Menu = GUICtrlCreateButton("Menu", 0, 0, 40, 20)
$Label11 = GUICtrlCreateLabel("Press Start/Stop Button", 41, 0, 171, 20,BitOR($SS_CENTER,$SS_SUNKEN), BitOR($WS_EX_CLIENTEDGE, $GUI_WS_EX_PARENTDRAG))
$Label12 = GUICtrlCreateLabel("", 0 , 25, 251 , 8 , BitOR($SS_CENTER,$SS_SUNKEN), BitOR($WS_EX_CLIENTEDGE, $GUI_WS_EX_PARENTDRAG))
$Label13 = GUICtrlCreateLabel("", 0 , 20, 251 , 5 , BitOR($SS_CENTER,$SS_SUNKEN),BitOR($WS_EX_CLIENTEDGE, $GUI_WS_EX_PARENTDRAG))
GUICtrlSetFont(-1, 10, 400, 0, "Goudy Old Style")
$Button1 = GUICtrlCreateButton( "Start",  10, 44 , 40, 40)
$Button2 = GUICtrlCreateButton( "Stop", 200, 44 , 40, 40)
$Beenden = GUICtrlCreateButton("X", 232, 0, 19, 20, 0)
$Mini = GUICtrlCreateButton("M", 213, 0, 19, 20, 0)
$Progress1 = GUICtrlCreateProgress(0, 21, 250, 10)
$Dummy = GUICtrlCreateLabel("",0,0, $Fenster_x, $Fenster_y,-1,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)



GUICtrlSetState($button2, $GUI_DISABLE)
GUISetState(@SW_SHOW,$Form1_1)

$foo = TrayCreateItem("Okno")
TrayItemSetState(-1, $TRAY_DEFAULT)
TraySetClick ( 0 )
TraySetToolTip("Kilknij i ...")

GUISwitch($Form1_1)

$button1Loop = False


While 1

   $trayMsg = TrayGetMsg()
   If $trayMsg = $foo Then
       GuiSetState(@SW_SHOW)
       Opt("TrayIconHide", 1)
   EndIf



$nMsg = GUIGetMsg(1)

Select

Case $nMsg[0] = $Button2
		$button1Loop = False
		GUICtrlSetState($button1, $GUI_ENABLE)
		GUICtrlSetState($button2, $GUI_DISABLE)
		GUICtrlSetData($label11, "idle mode")
		GUICtrlSetData($Progress1, Round(1/10000*100))



case $nMsg[0] = $Button1
		GUICtrlSetData($Label11, "Program: ")
		Global $time = _Timer_Init()
		$button1Loop = True
		GUICtrlSetState($button2, $GUI_ENABLE)
		GUICtrlSetState($button1, $GUI_DISABLE)

case $nMsg[0] = $GUI_EVENT_CLOSE and $nMsg[1] = $Form1_1
		$button1Loop = False
		Opt("TrayIconHide", 1)
		ExitLoop

case $nMsg[0] = $Mini
		GuiSetState(@SW_HIDE)
		Opt("TrayIconHide", 0)

case $nMsg[0] = $Menu
		GUICtrlSetData($Progress1, Round(1/10000*100))
		$button1Loop = False
		GUICtrlSetState($button1, $GUI_ENABLE)
		GUICtrlSetState($button2, $GUI_DISABLE)
		GUICtrlSetData($label11, "idle mode")
		$ParentPosArr = WinGetPos($Form1_1)
		GUIRegisterMsg (0x0003,"Move")

		$ChildGui = GuiCreate("Menu", 80, 161,$ParentPosArr[0]  +0, $ParentPosArr[1]  + 24 , BitOR($WS_POPUP, $WS_DLGFRAME), $WS_EX_TOPMOST, $Form1_1)
		$METIN2 = GUICtrlCreateButton("METIN2"  , 3 , 3 , 74 , 30, 0)
		$Setup = GUICtrlCreateButton("Setup", 3, 36 , 74 , 30, 0)
		$info = GUICtrlCreateButton("Info"  , 3, 69 , 74 , 30, 0)
		$Exit = GUICtrlCreateButton("Exit"  , 3, 127 , 74 , 30, 0)
		GUISetState( @SW_SHOW , $ChildGui)

		While 1
			$msg = GUIGetMsg(1)

			Select
				Case $msg[1] = $Form1_1
				GUIDelete()
				GUISwitch($Form1_1)
				ExitLoop

			Case $msg[0] = $Exit
				GUIDelete()
				GUISwitch($Form1_1)
				ExitLoop

			Case $msg[0] = $METIN2
				$windowname = IniRead($Keepaliveini,"KeepAlive","WindowTitle","KeepAlive.ini is missing")
				$Sendkey = IniRead($Keepaliveini,"KeepAlive","KeyToSend","KeepAlive.ini is missing")
				$interval = IniRead($Keepaliveini,"KeepAlive","Interval","KeepAlive.ini is missing")
				$ParentPosArr3 = WinGetPos($ChildGui)
				GUIRegisterMsg (0x0003,"Move")



				$ChildGui2 = GuiCreate("YESNO", 162, 161, $ParentPosArr3[0]  +85, $ParentPosArr3[1]  + 0 , BitOR($WS_POPUP, $WS_DLGFRAME), $WS_EX_TOPMOST, $ChildGui)


				GUICtrlCreateLabel("Set to defaults?", 20, 50 ,110,20 ,$SS_CENTER )
				$ok = GUICtrlCreateButton( "Ok", 20, 80 , 45, 30)
				$cancel = GUICtrlCreateButton( "Cancel",80 ,80 , 45, 30)
				$BeendenInfo = GUICtrlCreateButton("X", 145, 2, 15, 15, 0)
				GUISetState( @SW_SHOW , $ChildGui2)


				While 1

					$msg = GUIGetMsg(1)

					Select

						Case $msg[1] = $Form1_1
							GUIDelete()
							GUISwitch($ChildGui)
							ExitLoop

						Case $msg[1] = $ChildGui
							GUIDelete()
							GUISwitch($ChildGui)
							ExitLoop


						case $msg[0] = $BeendenInfo
							GUIDelete()
							GUISwitch($ChildGui)
							ExitLoop

						case $msg[0] = $ok
							IniWrite($Keepaliveini, "KeepAlive","WindowTitle", "METIN2")
							IniWrite($Keepaliveini, "KeepAlive","KeyToSend", "p")
							IniWrite($Keepaliveini, "KeepAlive","Interval", "60")
							GUIDelete()
							GUISwitch($ChildGui)
							GUISetState( @SW_SHOW , $ChildGui)
							ExitLoop

						case $msg[0] = $cancel
							GUIDelete()
							GUISwitch($ChildGui)
							GUISetState( @SW_SHOW , $ChildGui)
							ExitLoop

					EndSelect

				WEnd
			Case $msg[0] = $Setup

				$windowname = IniRead($Keepaliveini,"KeepAlive","WindowTitle","KeepAlive.ini is missing")
				$Sendkey = IniRead($Keepaliveini,"KeepAlive","KeyToSend","KeepAlive.ini is missing")
				$interval = IniRead($Keepaliveini,"KeepAlive","Interval","KeepAlive.ini is missing")
				$ParentPosArr2 = WinGetPos($ChildGui)
				GUIRegisterMsg (0x0003,"Move")



				$ChildGui3 = GuiCreate("Setup", 162, 161, $ParentPosArr2[0]  +85, $ParentPosArr2[1]  + 0 , BitOR($WS_POPUP, $WS_DLGFRAME), $WS_EX_TOPMOST, $ChildGui)


				$Pictaru = GUICtrlCreatePic($Path2,98 , 05, 65, 99 ,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

				GUICtrlCreateLabel("Send to Window Titel:", 5 , 5 ,105,20 ,$SS_LEFT )
				GUICtrlSetColor(-1, 0x000080)
				$newwindowname = GUICtrlCreateInput($windowname, 5 , 25, 100 , 17)
				$search = GUICtrlCreateButton( "Search for Titel", 5, 45, 100, 20 )

				GUICtrlCreateLabel("Key to send:", 5 , 72 ,100, 20 ,$SS_LEFT )
				GUICtrlSetColor(-1, 0x000080)
				$newsendkey = GUICtrlCreateInput($Sendkey, 5 , 89 ,100 , 17)

				GUICtrlCreateLabel("Interval in seconds:", 5 , 115 ,160,20 ,$SS_LEFT )
				GUICtrlSetColor(-1, 0x000080)
				$newinterval = GUICtrlCreateInput($interval, 5 , 132, 100 , 17)

				$save = GUICtrlCreateButton( "Save", 110 , 110 , 45, 45)


				GUISetState( @SW_SHOW , $ChildGui3)

				While 1
				GUISwitch($ChildGui3)
				$msg = GUIGetMsg(1)

					Select

						Case $msg[1] = $Form1_1
							GUIDelete()
							GUISwitch($ChildGui)
							GUISetState( @SW_SHOW , $ChildGui)

;~
							ExitLoop

						Case $msg[1] = $ChildGui
							GUIDelete()
							GUISwitch($ChildGui)
							GUISetState( @SW_SHOW , $ChildGui)

							ExitLoop


						case $msg[0] = $save
							$newname = GUICtrlRead ($newwindowname)
							IniWrite($Keepaliveini, "KeepAlive","WindowTitle", $newname)
							$newkey = GUICtrlRead ($newsendkey)
							IniWrite($Keepaliveini, "KeepAlive","KeyToSend", $newkey)
							$newint = GUICtrlRead ($newinterval)
							IniWrite($Keepaliveini, "KeepAlive","Interval", $newint)
							GUIDelete()
							GUISwitch($ChildGui)

							exitLoop


						case $msg[0] = $search

									$ParentPosArr3 = WinGetPos($ChildGui)
									$ChildGui4 = GuiCreate("SAVE or NEXT", 162, 161, $ParentPosArr3[0] +85, $ParentPosArr3[1]  , BitOR($WS_POPUP, $WS_DLGFRAME), $WS_EX_TOPMOST, $ChildGui3)
									GUIRegisterMsg (0x0003,"Move")
									GUICtrlCreateLabel("Use this Window Titel?", 20, 25 ,110,20 ,$SS_CENTER )
									$ok = GUICtrlCreateButton( "Save", 20, 80 , 45, 30)
									$BeendenInfo = GUICtrlCreateButton("X", 145, 2, 15, 15, 0)
									GUISetState( @SW_SHOW , $ChildGui4)

										Local $cmsg
										$var = WinList()
										$combo = GUICtrlCreateCombo("Select Window Title", 20, 50 ,130,20) 
										For $i = 1 to $var[0][0]
										If $var[$i][0] <> "" AND IsVisible($var[$i][1]) Then
										$listItems =  $var[$i][0] & "|"
											GUICtrlSetData(-1, $listItems , "Select Window Title") 
										EndIf  				
										Next
										GUISetState()

									While 1
									local $wmsg
									$wmsg = GUIGetMsg(1)

									Select


										Case $wmsg[1] = $Form1_1
											GUIDelete()
											GUISwitch($Form1_1)
											GUISetState( @SW_SHOW , $Form1_1)

											ExitLoop

										Case $wmsg[1] = $ChildGui
											GUIDelete()
											GUISwitch($ChildGui)
											ExitLoop

										case $wmsg[0] = $BeendenInfo

											GUIDelete()
											GUISwitch($ChildGui3)
											GUISetState( @SW_SHOW , $ChildGui3)

											GUIDelete($ChildGui3)
											GUISwitch($ChildGui)
											ExitLoop

										case $wmsg[0] = $ok
											$newtitel = GUICtrlRead ($combo)
											IniWrite($Keepaliveini, "KeepAlive","WindowTitle", $newtitel) 
											GUISwitch($ChildGui3)
											$newval = GUICtrlRead ($newsendkey)
											IniWrite($Keepaliveini, "KeepAlive","KeyToSend", $newval)
											$newval2 = GUICtrlRead ($newinterval)
											IniWrite($Keepaliveini, "KeepAlive","Interval", $newval2)
											guictrlsetdata( $newwindowname ,$newtitel)  
											GUIDelete()
											GUISwitch($ChildGui3)
											ExitLoop

									EndSelect

									WEnd


								ExitLoop







					EndSelect

				WEnd


			Case $msg[0] = $info
				$windowname = IniRead($Keepaliveini,"KeepAlive","WindowTitle","KeepAlive.ini is missing")
				$Sendkey = IniRead($Keepaliveini,"KeepAlive","KeyToSend","KeepAlive.ini is missing")
				$interval = IniRead($Keepaliveini,"KeepAlive","Interval","KeepAlive.ini is missing")
				$ParentPosArr2 = WinGetPos($ChildGui)
				GUIRegisterMsg (0x0003,"Move")
				$ChildGui5 = GuiCreate("Info", 162, 161, $ParentPosArr2[0]  +85, $ParentPosArr2[1]  + 0 , BitOR($WS_POPUP, $WS_DLGFRAME), $WS_EX_TOPMOST, $ChildGui)
				GUICtrlCreateLabel("Sending to Window Titel:",0,10,120,40 ,$SS_CENTER )
				GUICtrlCreateLabel($windowname,0,30,145,80  )
				GUICtrlSetColor(-1, 0xFF0000)
				GUICtrlCreateLabel("Sending Key:",0,70,75,40 ,$SS_RIGHT )
				GUICtrlCreateLabel($Sendkey ,80 ,70,175,40 ,$SS_LEFT)
				GUICtrlSetColor(-1, 0xFF0000)
				GUICtrlCreateLabel("Time Interval:",0,90,75,40 ,$SS_RIGHT )
				GUICtrlCreateLabel($interval & " Sec",80,90,100,40 ,$SS_LEFT )
				GUICtrlSetColor(-1, 0xFF0000)
				GUICtrlCreateLabel("© 2009 Angelfire" ,0,120,160,20 ,$SS_CENTER )
				GUICtrlSetColor(-1, 0x000099)
				$BeendenInfo = GUICtrlCreateButton("X", 145, 2, 15, 15, 0)
				$link = GUICtrlCreateButton("www.angelfire.forumup.ch",5,137,150,18)
				GUISetState( @SW_SHOW , $ChildGui5)

				While 1
					$msg = GUIGetMsg(1)

					Select

						Case $msg[1] = $Form1_1
							GUIDelete()
							GUISwitch($ChildGui)
							GUISetState( @SW_SHOW , $ChildGui)

							ExitLoop

						Case $msg[1] = $ChildGui
							GUIDelete()
							GUISwitch($ChildGui)
							GUISetState( @SW_SHOW , $ChildGui)
							ExitLoop

						case $msg[0] = $link
							ShellExecute("http:www.angelfire.forumup.ch")

						case $msg[0] = $BeendenInfo
							GUIDelete()
							GUISwitch($ChildGui)
							GUISetState( @SW_SHOW , $ChildGui)

							ExitLoop
					EndSelect
				WEnd

			EndSelect
		WEnd


case $nMsg[0] = $Beenden
  	ExitLoop

EndSelect

if $button1Loop Then
Button1()
EndIf

WEnd

Func Button1()
$windowname = IniRead($Keepaliveini,"KeepAlive","WindowTitle","KeepAlive.ini is missing")


$Sendkey = IniRead($Keepaliveini,"KeepAlive","KeyToSend","KeepAlive.ini is missing")
$interval = IniRead($Keepaliveini,"KeepAlive","Interval","KeepAlive.ini is missing")

If TimerDiff($Time) > $interval * 1000 Then
ControlSend($windowname,"","",$Sendkey)

$probarx = (TimerDiff($time))
$probary = $interval * 1000
$sec = (TimerDiff($time)/1000)
$time = _Timer_Init()
Else
$probarx = (TimerDiff($time))
$probary = $interval * 1000
$2sec = ($interval - (TimerDiff($time)/1000))
GUICtrlSetData($Progress1, Round(($probarx/$probary)*100))
GUICtrlSetData($Label11,  "Next input in:  " & StringLeft( $2sec , 4 ) & " seconds")
EndIf
EndFunc

func Move($hWndGUI)
   if $hWndGUI=$Form1_1 then
       $ParentPosArr = WinGetPos($Form1_1)
       WinMove($ChildGui, "", $ParentPosArr[0], $ParentPosArr[1]+24)

   Else
       $ChildPosArr = WinGetPos($ChildGui)
       WinMove($Form1_1, "", $ParentPosArr[0], $ParentPosArr[1]+24)
   EndIf


EndFunc


Func IsVisible($handle)
 If BitAnd( WinGetState($handle), 2 ) Then
   Return 1
 Else
   Return 0
 EndIf

EndFunc

borexix2 · 16 Maja 2010

i wy to nazywacie botem i kłócicie się o prawa autorske tego niby waszego pseudo skryptu ?

LOL to wszystko juz napisono przed wami !

mniej miejsca i kodu zajmuje zrobienie programu , wybierającego proces ( gre ) w której nalezy naciskać jakiś przycisk co określony przedział czasu

pobawcie się dzieci może tym jak potraficie

#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <Timers.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <Timers.au3>
#include <GuiConstantsEx.au3>
#include <GuiStatusBar.au3>



Global $label11
Global $probarx
Global $probary
Global	$windowname
Global Const $TRAY_DEFAULT = 512
Opt("TrayAutoPause", 0)
Opt("TrayMenuMode", 1)

$Keepaliveini = @ScriptDir & "\KeepAlive.ini"
$Path = @ScriptDir & "\obrazek.jpg"
$Path2 = @ScriptDir & "\obrazek.bmp"
$Fenster_x = 251
$Fenster_y = 190
$Winpos_x = @DesktopWidth / 1.01 - $Fenster_x / 1
$Winpos_y = @DesktopHeight / 1.12 - $Fenster_y / 1

$Form1_1 = GUICreate("KeepAlive", $Fenster_x, $Fenster_y, $Winpos_x, $Winpos_y ,BitOR($WS_POPUP, $WS_DLGFRAME), $WS_EX_TOPMOST) ;, $WS_DLGFRAME $WS_POPUP
$Pic = GUICtrlCreatePic($Path,+01 ,30, $Fenster_x -3, $Fenster_y -31 ,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) ;,$GUI_WS_EX_PARENTDRAG) ; ,$Ws_Disabled
GUICtrlSetState ($Pic,$GUI_DISABLE)
$Menu = GUICtrlCreateButton("Menu", 0, 0, 40, 20)
$Label11 = GUICtrlCreateLabel("Press Start/Stop Button", 41, 0, 171, 20,BitOR($SS_CENTER,$SS_SUNKEN), BitOR($WS_EX_CLIENTEDGE, $GUI_WS_EX_PARENTDRAG))
$Label12 = GUICtrlCreateLabel("", 0 , 25, 251 , 8 , BitOR($SS_CENTER,$SS_SUNKEN), BitOR($WS_EX_CLIENTEDGE, $GUI_WS_EX_PARENTDRAG))
$Label13 = GUICtrlCreateLabel("", 0 , 20, 251 , 5 , BitOR($SS_CENTER,$SS_SUNKEN),BitOR($WS_EX_CLIENTEDGE, $GUI_WS_EX_PARENTDRAG))
GUICtrlSetFont(-1, 10, 400, 0, "Goudy Old Style")
$Button1 = GUICtrlCreateButton( "Start", 10, 44 , 40, 40)
$Button2 = GUICtrlCreateButton( "Stop", 200, 44 , 40, 40)
$Beenden = GUICtrlCreateButton("X", 232, 0, 19, 20, 0)
$Mini = GUICtrlCreateButton("M", 213, 0, 19, 20, 0)
$Progress1 = GUICtrlCreateProgress(0, 21, 250, 10)
$Dummy = GUICtrlCreateLabel("",0,0, $Fenster_x, $Fenster_y,-1,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)



GUICtrlSetState($button2, $GUI_DISABLE)
GUISetState(@SW_SHOW,$Form1_1)

$foo = TrayCreateItem("Okno")
TrayItemSetState(-1, $TRAY_DEFAULT)
TraySetClick ( 0 )
TraySetToolTip("Kilknij i ...")

GUISwitch($Form1_1)

$button1Loop = False


While 1

$trayMsg = TrayGetMsg()
If $trayMsg = $foo Then
GuiSetState(@SW_SHOW)
Opt("TrayIconHide", 1)
EndIf



$nMsg = GUIGetMsg(1)

Select

Case $nMsg[0] = $Button2
		$button1Loop = False
		GUICtrlSetState($button1, $GUI_ENABLE)
		GUICtrlSetState($button2, $GUI_DISABLE)
		GUICtrlSetData($label11, "idle mode")
		GUICtrlSetData($Progress1, Round(1/10000*100))



case $nMsg[0] = $Button1
		GUICtrlSetData($Label11, "Program: ")
		Global $time = _Timer_Init()
		$button1Loop = True
		GUICtrlSetState($button2, $GUI_ENABLE)
		GUICtrlSetState($button1, $GUI_DISABLE)

case $nMsg[0] = $GUI_EVENT_CLOSE and $nMsg[1] = $Form1_1
		$button1Loop = False
		Opt("TrayIconHide", 1)
		ExitLoop

case $nMsg[0] = $Mini
		GuiSetState(@SW_HIDE)
		Opt("TrayIconHide", 0)

case $nMsg[0] = $Menu
		GUICtrlSetData($Progress1, Round(1/10000*100))
		$button1Loop = False
		GUICtrlSetState($button1, $GUI_ENABLE)
		GUICtrlSetState($button2, $GUI_DISABLE)
		GUICtrlSetData($label11, "idle mode")
		$ParentPosArr = WinGetPos($Form1_1)
		GUIRegisterMsg (0x0003,"Move")

		$ChildGui = GuiCreate("Menu", 80, 161,$ParentPosArr[0] +0, $ParentPosArr[1] + 24 , BitOR($WS_POPUP, $WS_DLGFRAME), $WS_EX_TOPMOST, $Form1_1)
		$METIN2 = GUICtrlCreateButton("METIN2" , 3 , 3 , 74 , 30, 0)
		$Setup = GUICtrlCreateButton("Setup", 3, 36 , 74 , 30, 0)
		$info = GUICtrlCreateButton("Info" , 3, 69 , 74 , 30, 0)
		$Exit = GUICtrlCreateButton("Exit" , 3, 127 , 74 , 30, 0)
		GUISetState( @SW_SHOW , $ChildGui)

		While 1
			$msg = GUIGetMsg(1)

			Select
				Case $msg[1] = $Form1_1
				GUIDelete()
				GUISwitch($Form1_1)
				ExitLoop

			Case $msg[0] = $Exit
				GUIDelete()
				GUISwitch($Form1_1)
				ExitLoop

			Case $msg[0] = $METIN2
				$windowname = IniRead($Keepaliveini,"KeepAlive","WindowTitle","KeepAlive.ini is missing")
				$Sendkey = IniRead($Keepaliveini,"KeepAlive","KeyToSend","KeepAlive.ini is missing")
				$interval = IniRead($Keepaliveini,"KeepAlive","Interval","KeepAlive.ini is missing")
				$ParentPosArr3 = WinGetPos($ChildGui)
				GUIRegisterMsg (0x0003,"Move")



				$ChildGui2 = GuiCreate("YESNO", 162, 161, $ParentPosArr3[0] +85, $ParentPosArr3[1] + 0 , BitOR($WS_POPUP, $WS_DLGFRAME), $WS_EX_TOPMOST, $ChildGui)


				GUICtrlCreateLabel("Set to defaults?", 20, 50 ,110,20 ,$SS_CENTER )
				$ok = GUICtrlCreateButton( "Ok", 20, 80 , 45, 30)
				$cancel = GUICtrlCreateButton( "Cancel",80 ,80 , 45, 30)
				$BeendenInfo = GUICtrlCreateButton("X", 145, 2, 15, 15, 0)
				GUISetState( @SW_SHOW , $ChildGui2)


				While 1

					$msg = GUIGetMsg(1)

					Select

						Case $msg[1] = $Form1_1
							GUIDelete()
							GUISwitch($ChildGui)
							ExitLoop

						Case $msg[1] = $ChildGui
							GUIDelete()
							GUISwitch($ChildGui)
							ExitLoop


						case $msg[0] = $BeendenInfo
							GUIDelete()
							GUISwitch($ChildGui)
							ExitLoop

						case $msg[0] = $ok
							IniWrite($Keepaliveini, "KeepAlive","WindowTitle", "METIN2")
							IniWrite($Keepaliveini, "KeepAlive","KeyToSend", "p")
							IniWrite($Keepaliveini, "KeepAlive","Interval", "60")
							GUIDelete()
							GUISwitch($ChildGui)
							GUISetState( @SW_SHOW , $ChildGui)
							ExitLoop

						case $msg[0] = $cancel
							GUIDelete()
							GUISwitch($ChildGui)
							GUISetState( @SW_SHOW , $ChildGui)
							ExitLoop

					EndSelect

				WEnd
			Case $msg[0] = $Setup

				$windowname = IniRead($Keepaliveini,"KeepAlive","WindowTitle","KeepAlive.ini is missing")
				$Sendkey = IniRead($Keepaliveini,"KeepAlive","KeyToSend","KeepAlive.ini is missing")
				$interval = IniRead($Keepaliveini,"KeepAlive","Interval","KeepAlive.ini is missing")
				$ParentPosArr2 = WinGetPos($ChildGui)
				GUIRegisterMsg (0x0003,"Move")



				$ChildGui3 = GuiCreate("Setup", 162, 161, $ParentPosArr2[0] +85, $ParentPosArr2[1] + 0 , BitOR($WS_POPUP, $WS_DLGFRAME), $WS_EX_TOPMOST, $ChildGui)


				$Pictaru = GUICtrlCreatePic($Path2,98 , 05, 65, 99 ,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

				GUICtrlCreateLabel("Send to Window Titel:", 5 , 5 ,105,20 ,$SS_LEFT )
				GUICtrlSetColor(-1, 0x000080)
				$newwindowname = GUICtrlCreateInput($windowname, 5 , 25, 100 , 17)
				$search = GUICtrlCreateButton( "Search for Titel", 5, 45, 100, 20 )

				GUICtrlCreateLabel("Key to send:", 5 , 72 ,100, 20 ,$SS_LEFT )
				GUICtrlSetColor(-1, 0x000080)
				$newsendkey = GUICtrlCreateInput($Sendkey, 5 , 89 ,100 , 17)

				GUICtrlCreateLabel("Interval in seconds:", 5 , 115 ,160,20 ,$SS_LEFT )
				GUICtrlSetColor(-1, 0x000080)
				$newinterval = GUICtrlCreateInput($interval, 5 , 132, 100 , 17)

				$save = GUICtrlCreateButton( "Save", 110 , 110 , 45, 45)


				GUISetState( @SW_SHOW , $ChildGui3)

				While 1
				GUISwitch($ChildGui3)
				$msg = GUIGetMsg(1)

					Select

						Case $msg[1] = $Form1_1
							GUIDelete()
							GUISwitch($ChildGui)
							GUISetState( @SW_SHOW , $ChildGui)

;~
							ExitLoop

						Case $msg[1] = $ChildGui
							GUIDelete()
							GUISwitch($ChildGui)
							GUISetState( @SW_SHOW , $ChildGui)

							ExitLoop


						case $msg[0] = $save
							$newname = GUICtrlRead ($newwindowname)
							IniWrite($Keepaliveini, "KeepAlive","WindowTitle", $newname)
							$newkey = GUICtrlRead ($newsendkey)
							IniWrite($Keepaliveini, "KeepAlive","KeyToSend", $newkey)
							$newint = GUICtrlRead ($newinterval)
							IniWrite($Keepaliveini, "KeepAlive","Interval", $newint)
							GUIDelete()
							GUISwitch($ChildGui)

							exitLoop


						case $msg[0] = $search

									$ParentPosArr3 = WinGetPos($ChildGui)
									$ChildGui4 = GuiCreate("SAVE or NEXT", 162, 161, $ParentPosArr3[0] +85, $ParentPosArr3[1] , BitOR($WS_POPUP, $WS_DLGFRAME), $WS_EX_TOPMOST, $ChildGui3)
									GUIRegisterMsg (0x0003,"Move")
									GUICtrlCreateLabel("Use this Window Titel?", 20, 25 ,110,20 ,$SS_CENTER )
									$ok = GUICtrlCreateButton( "Save", 20, 80 , 45, 30)
									$BeendenInfo = GUICtrlCreateButton("X", 145, 2, 15, 15, 0)
									GUISetState( @SW_SHOW , $ChildGui4)

										Local $cmsg
										$var = WinList()
										$combo = GUICtrlCreateCombo("Select Window Title", 20, 50 ,130,20) 
										For $i = 1 to $var[0][0]
										If $var[$i][0] <> "" AND IsVisible($var[$i][1]) Then
										$listItems = $var[$i][0] & "|"
											GUICtrlSetData(-1, $listItems , "Select Window Title") 
										EndIf 				
										Next
										GUISetState()

									While 1
									local $wmsg
									$wmsg = GUIGetMsg(1)

									Select


										Case $wmsg[1] = $Form1_1
											GUIDelete()
											GUISwitch($Form1_1)
											GUISetState( @SW_SHOW , $Form1_1)

											ExitLoop

										Case $wmsg[1] = $ChildGui
											GUIDelete()
											GUISwitch($ChildGui)
											ExitLoop

										case $wmsg[0] = $BeendenInfo

											GUIDelete()
											GUISwitch($ChildGui3)
											GUISetState( @SW_SHOW , $ChildGui3)

											GUIDelete($ChildGui3)
											GUISwitch($ChildGui)
											ExitLoop

										case $wmsg[0] = $ok
											$newtitel = GUICtrlRead ($combo)
											IniWrite($Keepaliveini, "KeepAlive","WindowTitle", $newtitel) 
											GUISwitch($ChildGui3)
											$newval = GUICtrlRead ($newsendkey)
											IniWrite($Keepaliveini, "KeepAlive","KeyToSend", $newval)
											$newval2 = GUICtrlRead ($newinterval)
											IniWrite($Keepaliveini, "KeepAlive","Interval", $newval2)
											guictrlsetdata( $newwindowname ,$newtitel) 
											GUIDelete()
											GUISwitch($ChildGui3)
											ExitLoop

									EndSelect

									WEnd


								ExitLoop







					EndSelect

				WEnd


			Case $msg[0] = $info
				$windowname = IniRead($Keepaliveini,"KeepAlive","WindowTitle","KeepAlive.ini is missing")
				$Sendkey = IniRead($Keepaliveini,"KeepAlive","KeyToSend","KeepAlive.ini is missing")
				$interval = IniRead($Keepaliveini,"KeepAlive","Interval","KeepAlive.ini is missing")
				$ParentPosArr2 = WinGetPos($ChildGui)
				GUIRegisterMsg (0x0003,"Move")
				$ChildGui5 = GuiCreate("Info", 162, 161, $ParentPosArr2[0] +85, $ParentPosArr2[1] + 0 , BitOR($WS_POPUP, $WS_DLGFRAME), $WS_EX_TOPMOST, $ChildGui)
				GUICtrlCreateLabel("Sending to Window Titel:",0,10,120,40 ,$SS_CENTER )
				GUICtrlCreateLabel($windowname,0,30,145,80 )
				GUICtrlSetColor(-1, 0xFF0000)
				GUICtrlCreateLabel("Sending Key:",0,70,75,40 ,$SS_RIGHT )
				GUICtrlCreateLabel($Sendkey ,80 ,70,175,40 ,$SS_LEFT)
				GUICtrlSetColor(-1, 0xFF0000)
				GUICtrlCreateLabel("Time Interval:",0,90,75,40 ,$SS_RIGHT )
				GUICtrlCreateLabel($interval & " Sec",80,90,100,40 ,$SS_LEFT )
				GUICtrlSetColor(-1, 0xFF0000)
				GUICtrlCreateLabel("© 2009 Angelfire" ,0,120,160,20 ,$SS_CENTER )
				GUICtrlSetColor(-1, 0x000099)
				$BeendenInfo = GUICtrlCreateButton("X", 145, 2, 15, 15, 0)
				$link = GUICtrlCreateButton("www.angelfire.forumup.ch",5,137,150,18)
				GUISetState( @SW_SHOW , $ChildGui5)

				While 1
					$msg = GUIGetMsg(1)

					Select

						Case $msg[1] = $Form1_1
							GUIDelete()
							GUISwitch($ChildGui)
							GUISetState( @SW_SHOW , $ChildGui)

							ExitLoop

						Case $msg[1] = $ChildGui
							GUIDelete()
							GUISwitch($ChildGui)
							GUISetState( @SW_SHOW , $ChildGui)
							ExitLoop

						case $msg[0] = $link
							ShellExecute("http:www.angelfire.forumup.ch")

						case $msg[0] = $BeendenInfo
							GUIDelete()
							GUISwitch($ChildGui)
							GUISetState( @SW_SHOW , $ChildGui)

							ExitLoop
					EndSelect
				WEnd

			EndSelect
		WEnd


case $nMsg[0] = $Beenden
	ExitLoop

EndSelect

if $button1Loop Then
Button1()
EndIf

WEnd

Func Button1()
$windowname = IniRead($Keepaliveini,"KeepAlive","WindowTitle","KeepAlive.ini is missing")


$Sendkey = IniRead($Keepaliveini,"KeepAlive","KeyToSend","KeepAlive.ini is missing")
$interval = IniRead($Keepaliveini,"KeepAlive","Interval","KeepAlive.ini is missing")

If TimerDiff($Time) > $interval * 1000 Then
ControlSend($windowname,"","",$Sendkey)

$probarx = (TimerDiff($time))
$probary = $interval * 1000
$sec = (TimerDiff($time)/1000)
$time = _Timer_Init()
Else
$probarx = (TimerDiff($time))
$probary = $interval * 1000
$2sec = ($interval - (TimerDiff($time)/1000))
GUICtrlSetData($Progress1, Round(($probarx/$probary)*100))
GUICtrlSetData($Label11, "Next input in: " & StringLeft( $2sec , 4 ) & " seconds")
EndIf
EndFunc

func Move($hWndGUI)
if $hWndGUI=$Form1_1 then
$ParentPosArr = WinGetPos($Form1_1)
WinMove($ChildGui, "", $ParentPosArr[0], $ParentPosArr[1]+24)

Else
$ChildPosArr = WinGetPos($ChildGui)
WinMove($Form1_1, "", $ParentPosArr[0], $ParentPosArr[1]+24)
EndIf


EndFunc


Func IsVisible($handle)
If BitAnd( WinGetState($handle), 2 ) Then
Return 1
Else
Return 0
EndIf

EndFunc

Dobrze mówisz ;P

Zaloguj się

👋 Witaj na MPCForum!

F7 Bot By Kuki

Rekomendowane odpowiedzi

kukimen7

kukimen7

Only4Me

Only4Me

SouI

SouI

Only4Me

Only4Me

kukimen7

kukimen7

buxer

buxer

kukimen7

kukimen7

RobeM

RobeM

borexix2

borexix2

Zarchiwizowany