vandan2

UP!

i think hes got a keylogger xd

@guinness i looked that topic but i dont understand how to do it ( ShellExecute() + "netsh.exe set dns ..." ) )

Sorry for it. My english is not good to understand the ref. Can you give me the ready code ?

Nobody ?

Guys , my dns is at automaticly. i want to change it 8.8.8.8 8.8.4.4 . Which command i should use to do it ? ( i will use it do dns changer script )

ow yeah man ! you are awesome problem solved. thanks for everything. !

Sorry for my all flods but its important. There is only 1 problem left. I cant stop the program. When i pressed button 2 nothing happens.

Yeah button 2 is exit. its working before press the run ( calistir ) but after i press run button 2 doest working. i thing we need to change exit to stop or etc ?

Also sometimes button 2 doesnt work ?

Thank you verry much ! I have 1 more question. How can add an hot key to the button 2 like F8 ?

not working. when i pressed run ( çalıştır ) nothing happens.

its unstopable wakillon

guys look at me again. i want to repeat all comands in script. here the clean script. its working but i want to do it all over again. all commands. thats the all codes : wakillon your script is right its working without the button 2. please fix it and give me again #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> $Form1 = GUICreate("İnci Sözlük Entry Uplayıcı ", 341, 250, 453, 143) $Button1 = GUICtrlCreateButton("Çalıştır !", 232, 8, 97, 113, $WS_GROUP) $Button2 = GUICtrlCreateButton("Dur Amk ! ", 224, 136, 113, 65, $WS_GROUP) $Label1 = GUICtrlCreateLabel("Yazılacak Kelimeyi Alt Kısma Yaz Panpa", 0, 56, 230, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input1 = GUICtrlCreateInput("up up up up updullah up up up up", 8, 80, 185, 21) $Label2 = GUICtrlCreateLabel("Bu program totolaraskina tarafindan kodlanmıştır. Her hakkı saklıdı", 8, 216, 380, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 MouseClick ("left",718,465) MouseWheel("down", 4) MouseClick ( "left",726,800) Send("upupupupupupupu updullah upupupupuppuup") MouseWheel("down", 1) MouseClick ( "left",285,840) Sleep(3000) Case $Button2 MsgBox (0, "Kodlayan" , "Bu program totolaraskina tarafından kodlanmıştır") Exit Case $Label1 EndSwitch WEnd

now its and not working please fix $_State = False While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $_State = Not $_State Case $Button2 MsgBox (0, "Kodlayan" , "Bu program totolaraskina tarafindan kodlanmistir") Exit Case $Label1 EndSwitch If $_State Then _Action ( ) WEnd Func _Action ( ) MouseClick ("left",718,465) MouseWheel("down", 4) MouseClick ( "left",726,800) Send("upupupupupupupu updullah upupupupuppuup") MouseWheel("down", 1) MouseClick ( "left",285,840) Sleep(3000) EndFunc Case $Button2 MsgBox (0, "Kodlayan" , "Bu program totolaraskina tarafından kodlanmıştır") Exit Case $Label1 EndSwitch WEnd