d3mon

Hello, 1.How can I get number of file lines (.txt) 2.How can I read 1st line then 2nd line, etc.... Thanks for any answer !

Hello, Here's 2 script for network : 1st : -get you ip -get lan ip 1,2,3,4 -put ip to clipboard -refresh ip -change color of ip label An example of traymenu and wnd : DOWNLOAD IT HERE ! 2nd : -get you ping of ip or hostname -add 10 ip or hostname -del ip or hostname -ON/OFF ping refresh An example of wnd : DOWNLOAD IT HERE ! It's for my pleasure ! bye.

I tried but nothing happend...any suggestions ?

Hello, Be polite first and then use Au3Info.exe....

Hello, Is it Possible to get info of css server ? For example number of players and current map or ping etc ... Thanks for anyhelp if it's possible...

Thanks, It's ok for @IPAddress1 but when I try @IPAddress2 I have another adress like adress IP or dns ?

Hello, I know for get his IP I do _Getip() , but what about lan IP and DNS IP ? Thanks for answers.

So, the software will all 1min check ip I you want that's not a problem...

IP is a faulty method IMO. If I get my license from you with an IP of 90.90.1.2.3 and I run my PC that way... then I shut down, and my ISP changes my IP on my next boot up to 90.73.3.2.1 ... how does your script recognize that it is the same pc/person that was originally licensed?

Well if you don't understand all that's normal if you're new, if nothing happend when you click start that's because he hasn't found pixel on screen

Hello, muzle6074 do you know read topic, because In my script I take ip always when the script is running so if ip change or not I have the current ip...

Hello, Try GuiOnEventMode option that's better i think : Opt("GuiOnEventMode",1) GuiCtrlCreateButton("Button",5,5) GuiCtrlSetOnEvent(-1,"Function") Func Function() ;Here's your function of the button EndFunc

Hello again, I have add label for see pixel position on window : Opt("GuiOnEventMode",1) ;EventMode Guictrl #include <GUIConstants.au3> Dim $brwn,$lbrwn $Form1 = GUICreate("Pixel",122,178,1,127) $B1 = GUICtrlCreateButton("Start",24,128,73,33) GUICtrlSetOnEvent(-1,"_Start") $L1 = GUICtrlCreateLabel("L1",16,8,92,41) GUICtrlSetOnEvent(-1,"_L1") $L1pixel=GUICtrlCreateLabel("",30,8,80,17) $L2 = GUICtrlCreateLabel("L2",16,48,92,41) GUICtrlSetOnEvent(-1,"_L2") $L2pixel=GUICtrlCreateLabel("",30,48,80,17) $L3 = GUICtrlCreateLabel("L3",16,96,92,33) GUICtrlSetOnEvent(-1,"_L3") $L3pixel=GUICtrlCreateLabel("",30,96,80,17) GUISetState(@SW_SHOW) GUISetBkColor(0x24E9FF) Func _Start() $brwn = PixelSearch(255,250,771,589,0xDF7215,2,2) $lbrwn = Pixelsearch(255,250,771,589,0x621008,2,2) EndFunc Func _L1() If IsArray($brwn)=1 Then ;$brwn pixelcolor found $x=$brwn[0] $y=$brwn[1] MouseClick("left",$brwn[0],$brwn[1],1,1) GUICtrlSetData($L1pixel,$brwn[0]&","&$brwn[1]) _L3();go to _L3 function Else _L2() ;pixelcolor not found go to _L2 function EndIf EndFunc Func _L2() If IsArray($lbrwn)=1 Then ;$lbrwn pixelcolor found $x2=$lbrwn[0] $y2=$lbrwn[1] MouseClick("left",$lbrwn[0],$lbrwn[1],1,1) GUICtrlSetData($L2pixel,$lbrwn[0]&","&$lbrwn[1]) _L3();go to _L3 function EndIf EndFunc Func _L3() If IsArray($brwn)=1 and IsArray($lbrwn)=1 Then ;Pixel $brwn and $lbwn color found then $x2=$lbrwn[0] $y2=$lbrwn[1] MouseClick("left",$lbrwn[0],$lbrwn[1],1,1) GUICtrlSetData($L1pixel,$brwn[0]&","&$brwn[1]) $x=$brwn[0] $y=$brwn[1] MouseClick("left",$brwn[0],$brwn[1],1,1) GUICtrlSetData($L2pixel,$lbrwn[0]&","&$lbrwn[1]) EndIf EndFunc While 1 $Msg = GUIGetMsg() Switch $Msg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd

Hello, I have made script for you I hope that's you wanted : Opt("GuiOnEventMode",1) ;EventMode Guictrl #include <GUIConstants.au3> Dim $brwn,$lbrwn $Form1 = GUICreate("Pixel",122,178,1,127) $B1 = GUICtrlCreateButton("Start",24,128,73,33) GUICtrlSetOnEvent(-1,"_Start") $L1 = GUICtrlCreateLabel("L1",16,8,92,41) GUICtrlSetOnEvent(-1,"_L1") $L2 = GUICtrlCreateLabel("L2",16,48,92,41) GUICtrlSetOnEvent(-1,"_L2") $L3 = GUICtrlCreateLabel("L3",16,96,92,33) GUICtrlSetOnEvent(-1,"_L3") GUISetState(@SW_SHOW) GUISetBkColor(0x24E9FF) Func _Start() $brwn = PixelSearch(255,250,771,589,0xDF7215,2,2) $lbrwn = Pixelsearch(255,250,771,589,0x621008,2,2) EndFunc Func _L1() If IsArray($brwn)=1 Then ;$brwn pixelcolor found $x=$brwn[0] $y=$brwn[1] MouseClick("left",$brwn[0],$brwn[1],1,1) _L3();go to _L3 function Else _L2() ;pixelcolor not found go to _L2 function EndIf EndFunc Func _L2() If IsArray($lbrwn)=1 Then ;$lbrwn pixelcolor found $x2=$lbrwn[0] $y2=$lbrwn[1] MouseClick("left",$lbrwn[0],$lbrwn[1],1,1) _L3();go to _L3 function EndIf EndFunc Func _L3() If IsArray($brwn)=1 and IsArray($lbrwn)=1 Then ;Pixel $brwn and $lbwn color found then $x2=$lbrwn[0] $y2=$lbrwn[1] MouseClick("left",$lbrwn[0],$lbrwn[1],1,1) $x=$brwn[0] $y=$brwn[1] MouseClick("left",$brwn[0],$brwn[1],1,1) EndIf EndFunc While 1 $Msg = GUIGetMsg() Switch $Msg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd

Hello, For you ip trial software encrypt : Opt("GuiOnEventMode",1) ;EventMode for guictrlbutton #Include <INet.au3> ;When the script start always take ip because it can change #include <string.au3> $IP=_GetIP() ;Get Current Adress Ip ;-- Encrypt password by Ip -- $Trial=_StringEncrypt(1,$IP,"Kiti",1) ;Encrypt with IP and Kiti password at Level 1 ;Window for Trial Key $win=GUICreate("Enter trial Key",200,100) GUICtrlCreateLabel("Write trial Key for Kiti Software",5,5) $TrialKey=GUICtrlCreateEdit("",5,25,190,17) ;Enter there previous trial key $reg=GUICtrlCreateButton("Register",20,50) ;Register key GUICtrlSetOnEvent(-1,"_Reg") $cancel=GUICtrlCreateButton("Cancel",70,50) ;Cancel GUICtrlSetOnEvent(-1,"_Cancel") GUISetState(@SW_SHOW,$win) Func _Reg() $ReadTrial=GUICtrlRead($TrialKey) If $ReadTrial=$Trial Then ; TrialIp = Previous Trial MsgBox(48,"Kiti Registered","Key Validated !") GUISetState(@SW_HIDE,$win) Else MsgBox(16,"Kiti Wrong Key","Wrong Key !") EndIf EndFunc Func _Cancel() GUISetState(@SW_HIDE,$win) EndFunc While 1 WEnd

If you want an activation code you have to do encrypt text for exemple your computer have ID"020202" so you encrypt the password with ID"020202" and you have the trial software code, you understand ? ;==================================================== ;============= Encryption Tool With GUI ============= ;==================================================== ; AutoIt version: 3.0.103 ; Language: English ; Author: "Wolvereness" ; ; ---------------------------------------------------------------------------- ; Script Start ; ---------------------------------------------------------------------------- #include <guiconstants.au3> #include <string.au3> ;#include files for encryption and GUI constants ;~~ $WinMain = GuiCreate('Encryption tool', 400, 400) ; Creates window ;~~ $EditText = GuiCtrlCreateEdit('',5,5,380,350) ; Creates main edit ;~~ $InputPass = GuiCtrlCreateInput('',5,360,100,20, 0x21) ; Creates the password box with blured/centered input ;~~ $InputLevel = GuiCtrlCreateInput(1, 110, 360, 50, 20, 0x2001) $UpDownLevel = GUICtrlSetLimit(GuiCtrlCreateUpDown($inputlevel),10,1) ; These two make the level input with the Up|Down ability ;~~ $EncryptButton = GuiCtrlCreateButton('Encrypt', 170, 360, 105, 35) $DecryptButton = GuiCtrlCreateButton('Decrypt', 285, 360, 105, 35) ; Encryption/Decryption buttons ;~~ GUICtrlCreateLabel('Password', 5, 385) GuiCtrlCreateLabel('Level',110,385) ; Simple text labels so you know what is what ;~~ GuiSetState() ; Shows window ;~~ Do $Msg = GuiGetMsg() If $msg = $EncryptButton Then ; When you press Encrypt ;~~ GuiSetState(@SW_DISABLE,$WinMain) ; Stops you from changing anything ;~~ $string = GuiCtrlRead($EditText) ; Saves the editbox for later ;~~ GUICtrlSetData($EditText,'Please wait while the text is Encrypted/Decrypted.') ; Friendly message ;~~ GuiCtrlSetData($EditText,_StringEncrypt(1,$string,GuiCtrlRead($InputPass),GuiCtrlRead($InputLevel))) ; Calls the encryption. Sets the data of editbox with the encrypted string ;~~ GuiSetState(@SW_ENABLE,$WinMain) ; This turns the window back on ;~~ EndIf If $msg = $DecryptButton Then ; When you press Decrypt ;~~ GuiSetState(@SW_DISABLE,$WinMain) ; Stops you from changing anything ;~~ $string = GuiCtrlRead($EditText) ; Saves the editbox for later ;~~ GUICtrlSetData($EditText,'Please wait while the text is Encrypted/Decrypted.') ; Friendly message ;~~ GuiCtrlSetData($EditText,_StringEncrypt(0,$string,GuiCtrlRead($InputPass),GuiCtrlRead($InputLevel))) ; Calls the encryption. Sets the data of editbox with the encrypted string ;~~ GuiSetState(@SW_ENABLE,$WinMain) ; This turns the window back on ;~~ EndIf Until $msg = $GUI_EVENT_CLOSE; Continue loop untill window is closed Modify this script for tiral software

Hello, I think that can help you : If FileExists(@ScriptDir&"\trialversion.txt") Then $Trial=FileRead(@ScriptDir&"\trialversion.txt") If $Trial=@MDAY Then ;If trial Expire=Day Exit EndIf Else ;If Trial files doesnt exists Then If @MDay=1 Then ; If Day=1 Then Expire in 3days FileWrite(@ScriptDir&"\trialversion.txt","4") ; So expire at 4 EndIf If @MDay=2 Then FileWrite(@ScriptDir&"\trialversion.txt","5") EndIf If @MDay=3 Then FileWrite(@ScriptDir&"\trialversion.txt","6") EndIf ;Etc....Warning ! Month could be 31 or 30 So... If @MDay=30 and @MON Then ; If Day=1 and Mon=January Then Expire in 3days [January = 31 days] FileWrite(@ScriptDir&"\trialversion.txt","3") ; So expire at 3 EndIf ;Etc.... EndIf ;But place Trialtext file in other directory like windows/system32/ for user dont see it... ;You can do "FileSetAttrib(@ScriptDir&"\trialversion.txt","HS")" ==> HS for Hidden and system file :)

Like LIMITER media player script try it : http://www.autoitscript.com/forum/index.ph...st&id=21221

Thats not in one script but in some scripts I download....

Hello, Sometimes when I run script made by user I have this error : "Duplicate Function Name" How to fix it ? Thanks in advance...

Hello everybody, I made that script for save the password in text file so hackers can't hack the password saved in WLM It's easy Script just save your Account and password and for log on the script send it on WLM window and log-on... Don't understand ? Try it ! Windows Live Messenger log-on

Hello,Hello muttley AMD 1.2 software Let's see what is AMD [Advert message Date] : I know AMD isn't very usefull but there is some functions : -Save 10 messages or delete it -Select Date for save -Select TrayTip or Msgbox for message -Sound for Advert Messages -Easy Setup for install and uninstall AMD.zip

AnyHelp ?

I copy rapidshare link to clipboard then your Irapid add it to the list, I click on Download Selected or go All and then an error : Subscript used with non-Array Variable...

Nice work, but there are some error than I can't download any url on rapidshare...can you fix new version and update it ? Thanks in advance ^^