Quantcast
Channel: AutoIt v3 - General Help and Support
Viewing all 12506 articles
Browse latest View live

tcpsend questions about answer

$
0
0

hi  guy 

 

if  i use  tcpsend command   how  can  watch , the  answer  of  command

 

example:

 

i  want  send  simple mail

 

Host = TCPNameToIP ( "mail.google.com" )
$Conection = TCPConnect ( $Host, 25 )

 

$recv = TCPRecv ( $Conection,2048 )

 

$EHLO= TCPSend ( $Conection,"EHLO SERVER"&"{ENTER}" )

 

if  i  msgbox (0,'',$EHLO) , have only number , but  if i want  a string  send me by mailserver  how  can  do ???

 

thankz


[ACTIVE] in loop

$
0
0
Hello guys, the "Advanced Window Descriptions" named "Active" can be used in many function, WinGetText, WinGetTitle and other
If i put one of it in a While-WEnd loop, how i can have ex. a MsgBox only when ACTIVE window change and not everytime?
Thanks

Send Mail help

$
0
0

 Hi I want to do a send email and do not know how to login to Gmail pls   :bye:

Plain Text         
#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> $Form1 = GUICreate("Send Mail", 381, 512, 226, 8) GUISetBkColor(0xACA899) $Group1 = GUICtrlCreateGroup("Gmail Account", 8, 0, 361, 505) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label1 = GUICtrlCreateLabel("Username :", 24, 24, 76, 23) GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS") $Input1 = GUICtrlCreateInput("", 104, 56, 257, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD)) $Button1 = GUICtrlCreateButton("Login", 288, 88, 75, 25) $Label4 = GUICtrlCreateLabel("File.txt", 24, 168, 59, 25) GUICtrlSetFont(-1, 11, 800, 0, "Comic Sans MS") $Input4 = GUICtrlCreateInput("", 88, 168, 217, 24) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $Button3 = GUICtrlCreateButton("...", 312, 168, 51, 25) GUICtrlCreateEdit("", 16, 232, 345, 265) GUICtrlCreateGroup("", -99, -99, 1, 1) $Label2 = GUICtrlCreateLabel("Password: ", 24, 56, 72, 23) GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS") $Input2 = GUICtrlCreateInput("", 104, 24, 257, 21) $Button2 = GUICtrlCreateButton("Send", 24, 88, 259, 25) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label3 = GUICtrlCreateLabel("To:", 32, 128, 26, 23) GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS") $Input3 = GUICtrlCreateInput("", 72, 128, 289, 21) $Label5 = GUICtrlCreateLabel("Please enter the message", 96, 200, 205, 27) GUICtrlSetFont(-1, 12, 800, 4, "Comic Sans MS") GUICtrlSetColor(-1, 0xFF0000) GUISetState(@SW_SHOW) While 1     $nMsg = GUIGetMsg()     Switch $nMsg         Case $GUI_EVENT_CLOSE             Exit     EndSwitch WEnd

TANKS

User input file - Read the name of this file

$
0
0

Hi Everyone,

 

I use the below command to to select a *.EXE (e.g. Microsoft_SampleApp_1.0.EXE)

 

$EXEpath = FileOpenDialog('Please Choose any File', '', 'All(*.*)', 1)

after selecting Microsoft_SampleApp_1.0.EXE, how can i read the exact name of this file.

for e.g: i have to save the file name in $Name = "Microsoft_SampleApp_1.0"

PLease help.

Cheers

keystroke to inactive window. Help.

$
0
0

Hello guys, i'm new here, I would like to get some help to fix my script, I'm trying to send keystroke to Fiddler Web Debugging, it seem like i have to keep the window focus to get it to work.

Func MyExit()     Exit EndFunc   ;==>MyExit HotKeySet("{ESC}", "MyExit") While True     ControlSend("Fiddler Web Debugger", "", "", "{s}")     Sleep(1000) WEnd

Hi, i have problems with imagesearch

$
0
0

Hello everyone,
im using auto it for macro for a game. so in game rightclickmenus are moveable i mean they arent poping same x.y cords sometimes +10 sometimes -10 so i cannot use a regular mouse recorder.
so i decided to use autoit for it. After some research i found imagesearch. here is my code
 

AutoIt         
#include <ImageSearch.au3> Local $handle = WinGetHandle("game name", " ") While 1 Sleep(2000) Mousemove(905, 411) Sleep(500) Mouseclick("right") sleep(1000) Mousemove(1006, 465) Sleep(500) Call("target") sleep(500) Mouseclick("left") Sleep(10000) wend Func target()    $pos = Mousegetpos()    $x1=$pos[0]    $y1=$pos[1]    _ImageSearchArea("targetprac.bmp",0 ,Round($x1),Round($y1),Round($x1 +20), Round($y1 +200),$x1,$y1, 1)         MouseMove($x1,$y1,3)  EndFunc

In this case i have some problems.
1.autoit isnt handleing game window (anyway its not a big problem)
2.imagesearch doesnt find the image that i told. and yes images are same folder with script file.
Thx and sory for bad english

Sections running concurrently instead of sequentially

$
0
0

     I am still learning this stuff. I am more of a Sys Admin who was put in an "Automation Specialist" role. Thanks to this forum, I am learning fast.

 

     I created a script that does 3 things: uninstall an old version, install pre-req's for new version, install new version. It installs perfectly but the installed software does not work. I found out from the manufacturer that another step is required. Permissions for a folder created during the "install new version" step need to be adjusted. So, I created an ICACLS statement that appears to work. However, when I put it at the end of my script, it runs concurrently with the install script. Therefore, because the folder in question has not yet been created, it fails. I have a WinWaitClose statement in there but it is ignoring it. Here is what I have, the Install and Change Folder Permissions section are the problem:

 

 

 
; Script Start - Uninstall
Run ("\\<servername>\Software\EC\Oct13\EC_Uninstall.bat")
WinWait ("EnvisionConnect Maintenance")
WinActivate ("EnvisionConnect Maintenance")
Send ("o")
WinWaitClose ("C:\windows\system32\cmd.exe")
WinWaitClose ("EnvisionConnect Maintenance")
 
; PreReq Install
RunAs ("<admin>", "<domain>", "<admin psswrd>", 0, "C:\Temp\ECPrerequisiteBundle.exe")
WinWait ("EnvisionConnect Prerequisites Setup", "This will install")
WinActivate ("EnvisionConnect Prerequisites Setup", "This will install")
Send ("!i")
WinWaitClose ("EnvisionConnect Prerequisites Setup", "Setup Progress")
WinActivate ("EnvisionConnect Prerequisites Setup", "Setup Successful")
Send ("!c")
 
; Install
RunAs ("<admin>", "<domain>", "<admin psswrd>", 0, "C:\Temp\EC Upgrade.bat")
WinWaitClose ("C:\windows\system32\cmd.exe", "/quiet")
 
; Change Folder Permissions
RunAs ("<admin>", "<domain>", "<admin psswrd>", 0, "C:\Temp\Permissions.bat")
 
The EC Upgrade.bat and the Permissions.bat run at the same time! Is it ignoring the last WinWaitClose (in the install section) because that is the second "C:\windows\system32\cmd" window and it thinks the specified window was already closed? That was my assumption when I added the "/quiet" text but - no change. Any help would be appreciated.

Bidimensional Array

$
0
0

Hi i'd like to know how to put in an array, by an imputbox, some data. 

   #include <Array.au3>    local $var1       $var1 =InputBox( "", "insert number of row")   $var2 = 5 ; number of col  Local $array[$var1] [5]   For $I = 0 To $var1-1 step 1              $array[$I][$I] = inputbox("", "insert value of first row")   next _ArrayDisplay($array)

that's what i've done. what i want to do is put the first value on col1 row1 [0][0] then he ask me again the $value and i want to put that (it's a different number) on col2 row1 [0][1]. how can i do?

thank you.


How to find a file name using _GetFilesFolder_Rekursiv

$
0
0

Hello everyone

 

In one of my scripts I use the third-party function called "_GetFilesFolder_Rekursiv" to get a list of all files of a certain file type in subfolders. However, now I want to get a list of all files that match a certain file name pattern that is more than just a file extension.  Does anyone know this function and how I can make it search for specific file names instead of file types?

 

Thanks

Samuel

 

==

 

The function's heading is this, by the way:

 

;====================================================================================== ; Function Name: _GetFilesFolder_Rekursiv($sPath [, $sExt='*' [, $iDir=-1 [, $iRetType=0 ,[$sDelim='0']]]]) ; Description: recursive listing of files and/or folders ; Parameter(s): $sPath Basicpath of listing ('.' -current path, '..' -parent path) ; $sExt Extension for file selection '*' or -1 for all (Default) ; $iDir -1 files+Folder(Default), 0 only files, 1 only Folder ; optional: $iRetType 0 for Array, 1 for String as Return ; optional: $sDelim Delimiter for string return ; 0 -@CRLF (Default) 1 -@CR 2 -@LF 3 -';' 4 -'|' ; Return Value(s): Array (Default) or string with found pathes of files and/or folder ; Array[0] includes count of found files/folder ; Author(s): BugFix (bugfix@autoit.de) ;=====================================================================================

Array or list for database

$
0
0

Hi, i'd like to create a script that create a sort of database. example: i have the code, the number of the product and a description. 

i want that after i write that, the first time, for one  product it will be saved in a database. so, when i'll write the same code it will appear in the list or in the array the description too. (in another cell/column) the number of product is everytime different. please give me some idea, thank you.

Get process name from active window

$
0
0

I want to make a pop up that displays the process name for the currently active window ("firefox.exe" for example). How do I get this name?

While 1     Sleep(2000)     MsgBox(4096, "Process Name", "Process Name: " & ??????????) WEnd

Multiple replace

$
0
0

Welcome. I'm Pole, and my english is weak so will use the google translator. I have a problem because I would like one command replace letters in the text "abti".
a = %charmap:0,1%
b =
%charmap:0,2%

t = %charmap:0,3%

i = %charmap:0,4%
the result would be %charmap:0,1%%charmap:0,2%%charmap:0,3%%charmap:0,4%

Multiple GUI.

$
0
0

Hello.

 

I-i, I have a program here, and I would like to use multiple action listeners for it. As it is now, all 3 Ui's are made at start and hidden, Shown when asked to, then hidden. I read http://www.autoitscript.com/wiki/Managing_Multiple_GUIs But didn't really Understand much. I also know of "GUISwitch" But don't know how it works.

 

I am just wondering if there are any example you can give me based on my code to help me.

 

My first post :unsure:

 

Here is my Program code (sorry if it is much, i don't know what Snippet to use):

 

If I have missed something in the FAQ or good example, Please excuse me :sweating:

AutoIt         
  1. #region ;**** Directives created by AutoIt3Wrapper_GUI ****
  2. #endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
  3. #include <ButtonConstants.au3>
  4. #include <GUIConstantsEx.au3>
  5. #include <WindowsConstants.au3>
  6. #include <Misc.au3>
  7. #include <ComboConstants.au3>
  8. #include <EditConstants.au3>
  9. ;#include <_UskinLibrary.au3>
  10. ;#include <Skins/XXX.au3>
  11. ;#include <DesuSplash2.au3>
  12. #include <Crypt.au3>
  13. ;#region ### Thweme load section (may select soon) ### Form=
  14. ;_Uskin_LoadDLL()
  15. ;_Uskin_Init(_XXX(True))
  16. ;#endregion ### Thweme load section (may select soon) ### Form=
  17.  
  18. ;#region ### Splash screen ### start=
  19. ;SplashImageOn("Desu Splash", _DesuSplash2(True), 650, 303, -1, -1, 1)
  20. ;Sleep(5000)
  21. ;SplashOff()
  22.  
  23. $hParent = GUICreate("parent");not shown
  24. $maingui = GUICreate("Quick launch V1.5", 225, 315, 470, 34, $WS_DLGFRAME, -1, $hParent)
  25. $Firefox = GUICtrlCreateButton("Cyberfox", 0, 0, 105, 49)
  26. $File = GUICtrlCreateMenu("File")
  27. $Edit = GUICtrlCreateMenuItem("Edit program", $File)
  28. $Reset = GUICtrlCreateMenuItem("Reset Configuration file", $File)
  29. $admin = GUICtrlCreateMenuItem("Enter Admin key", $File)
  30. $Edi = GUICtrlCreateMenu("Edit")
  31. $Edit_Config = GUICtrlCreateMenuItem("Edit Config file", $Edi)
  32. $Drive_Letter = GUICtrlCreateMenuItem("Change Drive letter", $Edi)
  33. $Scite = GUICtrlCreateButton("Scite", 120, 0, 105, 49)
  34. $PaleMoon = GUICtrlCreateButton("Pale moon", 0, 56, 105, 49)
  35. $STS = GUICtrlCreateButton("STS", 120, 56, 105, 49)
  36. GUICtrlSetTip($STS, "Eclipse")
  37. $Notepad = GUICtrlCreateButton("notepad++", 0, 112, 105, 49)
  38. $Skype = GUICtrlCreateButton("Skype", 120, 112, 105, 49)
  39. $Exit = GUICtrlCreateButton("Exit", 120, 224, 105, 49)
  40. $Thunderbird = GUICtrlCreateButton("Thunderbird", 120, 168, 105, 49)
  41. $Tomcatui = GUICtrlCreateButton("Tomcat", 0, 168, 105, 49)
  42. $SQLyog = GUICtrlCreateButton("SQLyog", 0, 224, 105, 49)
  43. Dim $maingui_AccelTable[7][2] = [["{F1}", $Firefox],["{F2}", $Scite],["{F3}", $PaleMoon],["{F4}", $STS],["{F5}", $Notepad],["{F6}", $Skype],["{F7}", $Tomcatui]]; 2 dimentinal array to create keyboard shortcuts using "F" keys
  44. GUISetAccelerators($maingui_AccelTable)
  45.  
  46. ; Second GUI
  47. $Select = GUICreate("select Drive", 131, 120, 192, 124, $WS_DLGFRAME, $ES_READONLY)
  48. $Drive_ID = GUICtrlCreateCombo("Select Drive", 8, 8, 113, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
  49. $combobox = GUICtrlSetData(-1, "A:|B:|C:|D:|E:|F:|G:|H:|I:|J:|K:|L:|M:|N:|O:|P;|Q:|R:|S:|T:|U:|V:|W:|X:|Y:|Z:")
  50. $Submist_Drive = GUICtrlCreateButton("Change", 8, 32, 113, 25)
  51. $Cancel = GUICtrlCreateButton("Cancel", 8, 64, 113, 25)
  52.  
  53. ; Third GUI
  54. $ThunderbirdUI = GUICreate("Select type", 327, 86, 192, 124, $WS_DLGFRAME)
  55. $Portable = GUICtrlCreateButton("Portable", 0, 8, 97, 49)
  56. GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
  57. $Installed = GUICtrlCreateButton("Installed", 224, 8, 97, 49)
  58. GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
  59. $Cancel1 = GUICtrlCreateButton("Cancel", 112, 8, 97, 49)
  60. GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
  61. GUISetState(@SW_HIDE, $ThunderbirdUI)
  62.  
  63.  
  64.  
  65. If _Singleton("I don't know what this does, but it works.", 1) = 0 Then
  66.     GUISetState(@SW_HIDE, $maingui)
  67.     GUIDelete($maingui)
  68.     MsgBox(48, "Error", "The program is already open!")
  69.     Exit
  70.  
  71. If Not FileExists("Config.ini") Then
  72.     GUISetState(@SW_DISABLE, $maingui)
  73.     MsgBox(48, "Error", "Ini does not exist, a new one will be made with the defult values")
  74.     GUISetState(@SW_DISABLE, $maingui)
  75.     _iniWrite("D:")
  76.     GUISetState(@SW_ENABLE, $maingui)
  77.  
  78. _Check()
  79.  
  80.  
  81. $IniFirefox = IniRead("Config.ini", "LocationNames", "$Firefox", "Not found")
  82.  
  83. $IniScite = IniRead("Config.ini", "LocationNames", "$Scite", "Not found")
  84.  
  85. $IniPaleMoon = IniRead("Config.ini", "LocationNames", "$PaleMoon", "Not found")
  86.  
  87. $IniSTS = IniRead("Config.ini", "LocationNames", "$STS", "Not found")
  88.  
  89. $IniNotepad = IniRead("Config.ini", "LocationNames", "$Notepad", "Not found")
  90.  
  91. $IniSkype = IniRead("Config.ini", "LocationNames", "$Skype", "Not found")
  92.  
  93. $Editprogramini = IniRead("Config.ini", "LocationNames", "$EditProgram", "Not found")
  94.  
  95. $Thunderbirdini = IniRead("Config.ini", "LocationNames", "$Thunderbirdini", "Not found")
  96.  
  97. $ThunderbirdInstall = IniRead("Config.ini", "LocationNames", "$ThunderbirdInstall", "Not found")
  98.  
  99. $Thunderbird64 = IniRead("Config.ini", "LocationNames", "$Thunderbird64", "Not found")
  100.  
  101. $Tomcat = IniRead("Config.ini", "LocationNames", "$Tomcat", "Not found")
  102.  
  103. $SQLyogini = IniRead("Config.ini", "LocationNames", "$SQLyog", "Not found")
  104.  
  105.  
  106.     $nMsg = GUIGetMsg()
  107.     Switch $nMsg
  108.         Case $GUI_EVENT_CLOSE
  109.             Exit
  110.         Case $Firefox
  111.             Run($IniFirefox)
  112.             If @error Then
  113.                 MsgBox(48, "Error", "There was a error while trying to open this program")
  114.             EndIf
  115.         Case $Scite
  116.             Run($IniScite)
  117.             If @error Then
  118.                 MsgBox(48, "Error", "There was a error while trying to open this program")
  119.             EndIf
  120.         Case $PaleMoon
  121.             Run($IniPaleMoon)
  122.             If @error Then
  123.                 MsgBox(48, "Error", "There was a error while trying to open this program")
  124.             EndIf
  125.         Case $STS
  126.             Run($IniSTS)
  127.             If @error Then
  128.                 MsgBox(48, "Error", "There was a error while trying to open this program")
  129.             EndIf
  130.         Case $Notepad
  131.             Run($IniNotepad)
  132.             If @error Then
  133.                 MsgBox(48, "Error", "There was a error while trying to open this program")
  134.             EndIf
  135.         Case $Skype
  136.             Run($IniSkype)
  137.             If @error Then
  138.                 MsgBox(48, "Error", "There was a error while trying to open this program")
  139.             EndIf
  140.         Case $Exit
  141.             GUISetState(@SW_DISABLE, $maingui)
  142.             $quit = MsgBox(52, "Quit", "Are you sure you want to exit?")
  143.             If $quit = 6 Then
  144.                 Exit
  145.             Else
  146.                 GUISetState(@SW_ENABLE, $maingui)
  147.             EndIf
  148.         Case $Edit
  149.             ShellExecute($Editprogramini)
  150.         Case $Reset
  151.             GUISetState(@SW_DISABLE, $maingui)
  152.             If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
  153.             $iMsgBoxAnswer = MsgBox(36, "Reset?", "Are you sure you want to reset the configuation? This will reset the config to defults; ALL CHANGES WILL BE LOST")
  154.             Select
  155.                 Case $iMsgBoxAnswer = 6
  156.                     $restedelete = FileDelete("config.ini")
  157.                     If $restedelete = 0 Then
  158.                         _iniWrite("D:")
  159.                     Else
  160.                         _iniWrite("D:")
  161.                     EndIf
  162.                     MsgBox(64, "Please restart", "Please restart the program")
  163.                     Exit
  164.                 Case $iMsgBoxAnswer = 7
  165.                     GUISetState(@SW_ENABLE, $maingui)
  166.             EndSelect
  167.         Case $Edit_Config
  168.             $test = ShellExecute(@WorkingDir & "\Config.ini")
  169.         Case $Drive_Letter
  170.             GUISetState(@SW_SHOW, $Select)
  171.             GUISetState(@SW_DISABLE, $maingui)
  172.         Case $Submist_Drive
  173.             GUISetState(@SW_DISABLE, $Select)
  174.             $read_selection = GUICtrlRead($Drive_ID)
  175.             If $read_selection = "Select Drive" Then
  176.                 MsgBox(48, "Warning", "Please select a drive letter")
  177.                 GUISetState(@SW_ENABLE, $Select)
  178.             Else
  179.                 $Warning_box = MsgBox(52, "Warning", "Are you sure you want to change the Drive letter in the config file to: " & $read_selection)
  180.                 If $Warning_box = 6 Then
  181.                     _iniWrite($read_selection)
  182.                     GUIDelete($maingui)
  183.                     GUIDelete($Select)
  184.                     MsgBox(64, "Please restart", "Please restart the program")
  185.                     Exit
  186.                 Else
  187.                     GUISetState(@SW_ENABLE, $Select)
  188.                 EndIf
  189.             EndIf
  190.         Case $Cancel
  191.             GUISetState(@SW_HIDE, $Select)
  192.             GUISetState(@SW_ENABLE, $maingui)
  193.         Case $Thunderbird
  194.             GUISetState(@SW_SHOW, $ThunderbirdUI)
  195.             GUISetState(@SW_DISABLE, $maingui)
  196.         Case $Cancel1
  197.             GUISetState(@SW_HIDE, $ThunderbirdUI)
  198.             GUISetState(@SW_ENABLE, $maingui)
  199.         Case $Portable
  200.             Run($Thunderbirdini)
  201.             If @error Then
  202.                 MsgBox(48, "Error", "There was a error while trying to open this program")
  203.             Else
  204.                 GUISetState(@SW_HIDE, $ThunderbirdUI)
  205.                 GUISetState(@SW_ENABLE, $maingui)
  206.             EndIf
  207.         Case $Installed
  208.             If @OSArch = "X64" Then
  209.                 Run($Thunderbird64)
  210.                 If @error Then
  211.                     MsgBox(48, "Error", "There was a error while trying to open this program")
  212.                 Else
  213.                     GUISetState(@SW_HIDE, $ThunderbirdUI)
  214.                     GUISetState(@SW_ENABLE, $maingui)
  215.                 EndIf
  216.             Else
  217.                 Run($ThunderbirdInstall)
  218.                 If @error Then
  219.                     MsgBox(48, "Error", "There was a error while trying to open this program")
  220.                 Else
  221.                     GUISetState(@SW_HIDE, $ThunderbirdUI)
  222.                     GUISetState(@SW_ENABLE, $maingui)
  223.                 EndIf
  224.             EndIf
  225.         Case $Tomcatui
  226.             Run($Tomcat)
  227.             If @error Then
  228.                 MsgBox(48, "Error", "There was a error while trying to open this program")
  229.             EndIf
  230.         Case $admin
  231.             GUISetState(@SW_DISABLE, $maingui)
  232.             _Crypt_Startup()
  233.             While 1
  234.                 $key = InputBox("Enter key", "Please enter the key to Unlock the code", "Null")
  235.                 If @error = 1 Then
  236.                     GUISetState(@SW_ENABLE, $maingui)
  237.                     ExitLoop
  238.                 EndIf
  239.                 $crypt_Key = (StringTrimLeft(_Crypt_HashData($key, $CALG_SHA1), 2))
  240.                 If $crypt_Key == "55C388D3015FF7544A9D1FD8186A04FD88000209" Then ;Adminallowed1
  241.                     GUISetState(@SW_HIDE, $maingui)
  242.                     MsgBox(64, "Correct", "Correct key, features are now unlocked", 5)
  243.                     MsgBox(64, "code on this computer", "This computer is registerd for the code, if you delete the code, you can't get it back... Unless you are clever.")
  244.                     $downloadTest = InetGet("https://dl.dropboxusercontent.com/s/ybcjjrslgtjzlhe/QuickLaunch.au3?dl=1&token_hash=AAHNERKvJbqjw9dt59HX5wPVvnLbQL5pQo-smUbykEwKUg", "Quicklaunch.au3", 1, 0)
  245.                     If $downloadTest = 0 Then ;error downloading
  246.                         MsgBox(16, "error", "There was an Error downloading or genarating the code, please allow the program though the firewall, If this happens again, contact Author")
  247.                         ExitLoop
  248.                     EndIf
  249.                     $errorCrypt = IniWrite(@TempDir & "/Admin.ini", "Isadmin", "$admin", StringTrimLeft(_Crypt_HashData("youareadmin", $CALG_SHA1), 2))
  250.                     If $errorCrypt = 0 Then
  251.                         MsgBox(16, "Error", "Could not save Admin settings, this is not a problem: continueing...")
  252.                         ExitLoop
  253.                     EndIf
  254.                     MsgBox(64, "Please restart", "Please restart the program")
  255.                     Exit
  256.                 Else
  257.                     MsgBox(48, "Incorrect key", "Key is not correct!")
  258.                 EndIf
  259.                 _Crypt_Shutdown()
  260.             WEnd
  261.         Case $SQLyog
  262.             Run($SQLyogini)
  263.             If @error Then
  264.                 MsgBox(48, "Error", "There was a error while trying to open this program")
  265.             EndIf
  266.     EndSwitch
  267.  
  268. Func _Check()
  269.     $isadmin = IniRead(@TempDir & "/Admin.ini", "Isadmin", "$admin", "apples")
  270.     If $isadmin = "FA15EB666BCBA6755735B9767F3FE99D80121473" Then
  271.         GUICtrlSetState($admin, $GUI_DISABLE)
  272.         Local $i = IniWrite("Config.ini", "LocationNames", "$EditProgram", "Quicklaunch.au3")
  273.         If $i = 0 Then
  274.             MsgBox(16, "Error", "file is read-only!")
  275.         EndIf
  276.     EndIf
  277. EndFunc   ;==>_Check
  278.  
  279. Func _iniWrite($reading)
  280.     $error = IniWrite("Config.ini", "LocationNames", "$Firefox", "C:\Program Files\Cyberfox\Cyberfox.exe")
  281.  
  282.     IniWrite("Config.ini", "LocationNames", "$Scite", $reading & "\Portible\AutoIt3\SciTE\SciTE.exe")
  283.  
  284.     IniWrite("Config.ini", "LocationNames", "$PaleMoon", $reading & "\Portible\Firefox(x86-64bit)\pale moon\Palemoon-Portable.exe")
  285.  
  286.     IniWrite("Config.ini", "LocationNames", "$STS", $reading & "\Portible\springsource\sts-3.4.0.RELEASE\STS.exe")
  287.  
  288.     IniWrite("Config.ini", "LocationNames", "$Notepad", $reading & "\Portible\Notepad++\notepad++.exe")
  289.  
  290.     IniWrite("Config.ini", "LocationNames", "$Skype", $reading & "\Portible\Skype\SkypePortable.exe")
  291.  
  292.     IniWrite("Config.ini", "LocationNames", "$EditProgram", $reading & "\auto it programs\close\close.au3")
  293.  
  294.     IniWrite("Config.ini", "LocationNames", "$Thunderbirdini", $reading & "\Portible\ThunderbirdPortable\ThunderbirdPortable.exe")
  295.  
  296.     IniWrite("Config.ini", "LocationNames", "$ThunderbirdInstall", "C:\Program Files\Mozilla Thunderbird\Thunderbird.exe")
  297.  
  298.     IniWrite("Config.ini", "LocationNames", "$Thunderbird64", "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe")
  299.  
  300.     IniWrite("Config.ini", "LocationNames", "$Tomcat", "C:\Program Files\Apache Software Foundation\Tomcat 7.0\bin\Tomcat7.exe")
  301.  
  302.     IniWrite("Config.ini", "LocationNames", "$SQLyog", "C:\Program Files\SQLyog Community\SQLyogCommunity.exe")
  303.  
  304.     Sleep(1000)
  305.     If $error = 0 Then
  306.         GUIDelete($maingui)
  307.         MsgBox(16, "Error", "Could not make Ini file, reason of this could be that the folder is read only")
  308.         Exit
  309.     Else
  310.         MsgBox(64, "Done", "Ini made")
  311.     EndIf
  312.  
  313. EndFunc   ;==>_iniWrite

Determine whether a fullscreen process exists

$
0
0

Hello,

 

my problem is: how to determine, whether a fullscreen process exists?

It could be any game (I think it's a directx thing), or an Alt+Enter-ed console window, playing vdeo or any other, which I can't imagine :)

 

Anyways, I need this, because I want to write a script, which gets to suspend state, if a process claims the whole screen (not windowed).

 

Any suggestions?

 

Civ.

Choose include file...

$
0
0

Hello,

 

it's possible to insert in the code some functions on includes and depending on the compilation x86 or x64, the software will be compiled with the good functions and/or the good includes?

 

Thanks in advance.


Need To Re-Develope Source Code of my Game Bot! Help!

$
0
0

Hello

 

I am looking for someone who can help me re-develop my game bot source code which is already coded in AutoIt language. Am not a programmer but with some hit and trial method i can edit the source code to my little needs but it has many bugs and some things that dont execute the way it should and alot more things i want to include but i dont know how to input new things.

 

Am a Professional Banker and have a little time to spend on programming so i need someone to do it for my behalf. 

 

 

i dont know if i can find someone voluntarily or for a price but any sort of help is appreciated.

 

 

As the source code is already coded in autoit language i dont feel  that it will be a hassle and time consuming for a person who knows the language and how to code it.

 

Interested people can email me and i can share them my bot script.

 

sam114409@gmail.com

 

 

custom array display

$
0
0

is it possible to add buttons into array display

for example to add SAVE and CANCEL button

 

 

Notification code

$
0
0

Hi

 

What is the notification code for EN_CHANGE and where can I find it?  I would like to do something like the below.  But I did to know what is the code value for EN_CHANGE. 

 

Global Const $EN_CHANGE = 0x300    ; I do not know if this is the code(0x300)  for EN_CHANGE return from the BitShift($wParam, 16) below.   Thanks

 

Then in my function I would have

 

Func  MY_WM_COMMAND($hWnd, $msg, $wParam, $lParam)

Local $nNotifyCode = BitShift($wParam, 16)

 

    Switch $nNotifyCode

       Case $EN_CHANGE       ; what would be the code for this notification     

         _change()

 

   EndSwitch

 

EndFunc

 

 

Best regards

 

WinHTTP and GZIP Encoding

$
0
0

Hi everybody!

I can't get html or inner text of URL: "http://mp3.zing.vn/xml/album-xml/knJntZmadJlJcQFTLvctbHZn"

This is my code:

AutoIt         
#include<WinHttp.au3> #include<zlib.au3> $sURL = "http://mp3.zing.vn/xml/album-xml/knJntZmadJlJcQFTLvctbHZn" $hOpen = _WinHttpOpen("Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; rv:1.9.0.3; .NET CLR 2.0.50727; ffco7) Gecko/2008092417 Firefox/3.0.3") $hConnect = _WinHttpConnect($hOpen, $sURL) ;~ $hRequest = _WinHttpSimpleRequest($hConnect) $aRequest = _WinHttpSimpleRequest($hConnect, Default,Default,Default,Default,'Accept-Encoding: gzip',1,2) ConsoleWrite($aRequest[0]); $charset = 0 If StringRegExp($aRequest[0], "(?im)^Content-Type:\h.*?charset\h*=\h*utf-?8") Then $charset = 4 If StringRegExp($aRequest[0], "(?im)^Content-Encoding:\h+gzip") Then     $sResponse = BinaryToString(_ZLIB_GZUncompress($aRequest[1]), $charset) Else     $sResponse = BinaryToString($aRequest[1], $charset) EndIf MsgBox(0,"",$sResponse) _WinHttpCloseHandle($aRequest) _WinHttpCloseHandle($hConnect) _WinHttpCloseHandle($hOpen)

when i click F5, it return HTML source of page: http://mp3.zing.vn/, what should i do? :)

Understanding _Singleton and others

$
0
0

I'm still a noob and now I am going to ask some more nooby questions :

 

1.Kindly explain the _Singleton, the help file isn't enough detailed(for me)

 

2.How can I make a script which will create a directory at a place(suppose desktop) in it's first run and everytime it is run it'll check if the directory exists and if it doesn't then it'll create the directory again.

 

3.How to open a folder using autoit?

Viewing all 12506 articles
Browse latest View live


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>