Jump to content

Nessie

Active Members
  • Posts

    449
  • Joined

  • Last visited

1 Follower

Profile Information

  • Member Title
    Why always me?

Recent Profile Visitors

588 profile views

Nessie's Achievements

  1. Instead of using FileRead, just simply pass the source code of the page in a variable and use that in the StringRegExp function.
  2. Maybe with a regex like that? #include <Array.au3> $sRead = FileRead(@DesktopDir & "\source.txt") ;A File that contain the source code $aRegex = StringRegExp($sRead, '(?m)(?i)ID:\s*<\/strong>\s*(\d+)', 3) ;Regex _ArrayDisplay($aRegex) Hi!
  3. So what is the question? Can you explain yourself better?
  4. I think you have to read the forum rules 1. Do not ask for help with AutoIt scripts, post links to, or start discussion topics on the following subjects: Malware of any form - trojan, virus, keylogger, spam tool, "joke/spoof" script, etc. Bypassing of security measures - log-in and security dialogs, CAPTCHAs, anti-bot agents, software activation, etc. Automation of software/sites contrary to their EULA (see Reporting bullet below). Launching, automation or script interaction with games or game servers, regardless of the game. Running or injecting any code (in any form) intended to alter the original functionality of another process. Decompilation of AutoIt scripts or details of decompiler software. Hi!
  5. Maybe you want to know the install date of the operating system?
  6. Try this: Global $sReg If @OSArch = "X64" Then $sReg = "64" EndIf $sFirstValue = RegRead("HKEY_LOCAL_MACHINE" & $sReg & "\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "Shell") $sSecondValue = RegRead("HKEY_LOCAL_MACHINE" & $sReg & "\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "AutoAdminLogon") ConsoleWrite("First Value: " & $sFirstValue & @CRLF) ConsoleWrite("Second Value: " & $sSecondValue & @CRLF) Hi!
  7. Something like that? Global $iIndex = 1 Global $fPaused = True HotKeySet("+`", "TogglePause") While 1 If $fPaused = True Then ContinueLoop EndIf $aPos = MouseGetPos() Switch $iIndex Case 1 MouseClick("left", 424, 126, 3, 0) Send("{DEL}") MouseClick("left", 424, 126, 3, 0) Send("{DEL}") Send("{1}") Send(".") Send("{0}") Send("{1}") MouseClick("left", 424, 116, 1, 0) MouseClick("left", 475, 295, 1, 0) MouseMove($aPos[0], $aPos[1], 0) Send("{ALTDOWN}") Send("{TAB}") Sleep(100) Send("{TAB}") Send("{ALTUP}") Sleep(60000) _IncrementIndex() Case 2 MouseClick("left", 424, 126, 3, 0) Send("{DEL}") MouseClick("left", 424, 126, 3, 0) Send("{DEL}") Send("{1}") Send(".") Send("{0}") Send("{2}") MouseClick("left", 424, 116, 1, 0) MouseClick("left", 475, 295, 1, 0) MouseMove($aPos[0], $aPos[1], 0) Send("{ALTDOWN}") Send("{TAB}") Sleep(100) Send("{TAB}") Send("{ALTUP}") Sleep(60000) _IncrementIndex() Case 3 MouseClick("left", 424, 126, 3, 0) Send("{DEL}") MouseClick("left", 424, 126, 3, 0) Send("{DEL}") Send("{1}") Send(".") Send("{0}") Send("{3}") MouseClick("left", 424, 116, 1, 0) MouseClick("left", 475, 295, 1, 0) MouseMove($aPos[0], $aPos[1], 0) Send("{ALTDOWN}") Send("{TAB}") Sleep(100) Send("{TAB}") Send("{ALTUP}") Sleep(60000) _IncrementIndex() EndSwitch WEnd Func _IncrementIndex() If $iIndex >= 3 Then $iIndex = 1 Else $iIndex += 1 EndIf TogglePause() EndFunc ;==>_IncrementIndex Func TogglePause() $fPaused = Not $fPaused While $fPaused = True Sleep(100) WEnd EndFunc ;==>TogglePause
  8. Take a look to this script: #include <File.au3> #include <GDIPlus.au3> #include <ScreenCapture.au3> #include <MsgBoxConstants.au3> $sTempPath = @ScriptDir & "\temp" $sStackedImagePath = @ScriptDir & "\StackedBitmaps.png" $iScreenShotNumber = 8 ;Set the screenshots number If Not FileExists($sTempPath) Then DirCreate($sTempPath) Else DirRemove($sTempPath, 1) DirCreate($sTempPath) EndIf If FileExists($sStackedImagePath) Then FileDelete($sStackedImagePath) EndIf For $i = 0 To $iScreenShotNumber - 1 _ScreenCapture_Capture($sTempPath & "\" & $i & ".jpg") If @error Then MsgBox(16, "Error", "Unable to take screenshot") Exit EndIf Next Global $aFilter = _FileListToArrayRec($sTempPath, "*.jpg;*.png;*.bmp", $FLTAR_FILES, $FLTAR_NORECUR, $FLTAR_NOSORT, $FLTAR_FULLPATH) If @error Then MsgBox($MB_ICONERROR, "Error", "No images were found in selected folder!", 10) Exit EndIf _GDIPlus_Startup() Global $hBitmap_Stacked = _GDIPlus_BitmapCreateStackedBitmaps($aFilter, $iScreenShotNumber) _GDIPlus_ImageSaveToFile($hBitmap_Stacked, $sStackedImagePath) _GDIPlus_ImageDispose($hBitmap_Stacked) _GDIPlus_Shutdown() DirRemove($sTempPath, 1) ShellExecute($sStackedImagePath) MsgBox($MB_ICONINFORMATION, "Done!", "All done!") Func _GDIPlus_BitmapCreateStackedBitmaps($aFiles, $iLimit = 5) If $aFiles[0] = 1 Then Return SetError(1, 0, 0) ;only one image $iLimit = $iLimit > $aFiles[0] ? $aFiles[0] : $iLimit Local $i, $aDim, $iW_max = 0, $iH_max = 0, $aImages[$iLimit + 1], $iY = 0 $aImages[0] = $iLimit For $i = 1 To $iLimit $aImages[$i] = _GDIPlus_ImageLoadFromFile($aFiles[$i]) $aDim = _GDIPlus_ImageGetDimension($aImages[$i]) $iW_max = $aDim[0] > $iW_max ? $aDim[0] : $iW_max $iH_max += $aDim[1] Next Local Const $hBitmap = _GDIPlus_BitmapCreateFromScan0($iW_max, $iH_max), $hGfx = _GDIPlus_ImageGetGraphicsContext($hBitmap) For $i = 1 To $iLimit $aDim = _GDIPlus_ImageGetDimension($aImages[$i]) _GDIPlus_GraphicsDrawImageRect($hGfx, $aImages[$i], 0, $iY, $aDim[0], $aDim[1]) _GDIPlus_ImageDispose($aImages[$i]) $iY += $aDim[1] Next _GDIPlus_GraphicsDispose($hGfx) Return $hBitmap EndFunc ;==>_GDIPlus_BitmapCreateStackedBitmaps Hi!
  9. If you need to restart your script you can use that function
  10. It is not possible with the standard MsgBox function. Also you can see that udf. Or just simply make a GUI
  11. #NoTrayIcon #Include <Misc.au3> #Include <Restart.au3> HotKeySet("{ESC}", "Terminate") _Singleton('MyProgram') Func Terminate() ;Do what you want _ScriptRestart() EndFunc Something like that.
  12. Maybe you should change the way you are thinking on that function. But if you need to restart your script you can use that function
  13. Try this: #include <MsgBoxConstants.au3> #include <FileConstants.au3> $sFilePath = @ScriptDir & "\log.txt" $hFileOpen = FileOpen($sFilePath, $FO_READ) If $hFileOpen = -1 Or Not FileExists($sFilePath) Then MsgBox($MB_SYSTEMMODAL, "", "An error occurred when reading the file.") Exit EndIf $sFileRead = FileRead($hFileOpen) FileClose($hFileOpen) StringReplace($sFileRead, "s", "s") $i_S_Count = @extended StringReplace($sFileRead, "b", "b") $i_B_Count = @extended StringReplace($sFileRead, "e", "e") $i_E_Count = @extended MsgBox($MB_ICONINFORMATION, "Info", "S occurrence: " & $i_S_Count & @CRLF & "B occurrence: " & $i_B_Count & @CRLF & "E occurrence: " & $i_E_Count)
  14. Take a look to _IsPressed function.
  15. Can you show to us your code? My crystal ball is broken right now
×
×
  • Create New...