MikeTranser

What is this in funcion? File Write file? Or FileRad File @WindowsDir/WINDOWS/SYSTEM/ etc?

I need only program make file.dat in X://WINDOWS/ how to make file in this adress? No "X" i need automatic disc system install.

Hello! How to make and read file in system root? Mike,

Hello i compile my script and go scan online. AVG 9.0.0.787 2010.03.20 Packed.AutoIt ClamAV 0.96.0.0-git 2010.03.20 PUA.Script.Packed-3 Symantec 20091.2.0.41 2010.03.20 Suspicious.Insight VBA32 3.12.12.2 2010.03.19 Trojan.Autoit.F Why? But script no have any virus...

Thanks Melba23, And please close topic.

In slider you must hold slider and turn right/left and you must put down slider to effect. (I need autmatic) Q1. Do you show me in my script?

Two Script problem First: (I need Create Label only in TabSheet2) Case $Slider1 $silder = GUICtrlRead($Slider1) GUICtrlDelete($Label3) GUICtrlCreateLabel($silder, 328, 120, 35, 20)In $TabSheet2 GUICtrlSetColor(-1, 0x0000FF) GUICtrlSetBkColor(-1, 0xFFFFFF) Second: I need slider automatic "If you hold slider the label is create automatic no put down"

Okay ^^ I make this script writer.au3 everyone need i write here: If Not FileExists("writer.txt") Then $plik = "writer.txt" $f = FileOpen("writer.txt", 2) FileClose($f) IniWriteSection($plik, "Writer", "") EndIf $plik = "writer.txt" $w = 0 $text = 0 $text3 = 0 While 1 $w = $w + 1 $text = $text + 1 $text3 = $text3 + 1 IniWrite($plik, "Writer", "Case '("& $text &")'", "") IniWrite($plik, "Writer", "$online = "& $text3, "") TrayTip("Bot", "Wykonałem juz"& $w, 0, 1) Sleep(10) test() WEnd func test() IF $w = 151 Then FileOpen("writer.txt") Exit EndIf EndFunc

Please help... This is small problem.

Ohh Yeach i know and my script working ! But i have small problem on string: Func test() $html = _IEBodyReadHTML($I) $array = StringRegExp($html, 'sztamki online<(?i)/b> (.*?)</(?i)td>', 3) for $i = 0 to UBound($array) - 1 msgbox(0, "RegExp Test with Option 2 - " & $i, $array[$i]) Next EndFunc Web HTML: sztamki online (150):</td> Problem is: MSgBox Text is: "(150):" Iam need edit string and go MsgBox Text: "150"

Hello how to download information in website to me? Iam try but my script don't working... WebSite HTML: <td class='center' colspan='2'>online (145):</td> First Script: $ttt = _StringBetween($I, 'online (', '):</td>') $ttt2 = StringSplit($ttt, " ") MsgBox(64, "Test", $ttt2) Second Script: $bodyhtml = _IEBodyReadHTML($I) $s = StringInStr($bodyhtml, 'online (', '):</td>') MsgBox(64, "Test", $s) Two script Not working... Everyone have script read information in $I(Bodyhtml) online("HOW")? Iam need read in MsgBox online ("HOW") Mike,

Hmm this is my one func: Func zaloguj() Sleep(100) Global $I = _IECreate("http://x", 0, $show) errorHandle() $bodyhtml3 = _IEBodyReadHTML($I) $s2 = StringInStr($bodyhtml3, "ErrorPageTemplate") If $s2 = 0 Then $logi = GUICtrlRead($LoginGui) $hasl = GUICtrlRead($HasloGui) $login = _IETagNameGetCollection($I, "input", 1) $haslo = _IETagNameGetCollection($I, "input", 2) _IEFormElementSetValue($login, $logi) _IEFormElementSetValue($haslo, $hasl) $bodyhtml = _IEBodyReadHTML($I) $b = StringInStr($bodyhtml, "login") $bs = _IETagNameGetCollection($I, "input") For $b In $bs If $b.src = "login.png" Then _IEAction($b, "click") Next _IELoadWait($I) errorHandle() EndIf Sleep(100) EndFunc ;==>zaloguj

Iam have only errors if IE not load or load timeout.

How make Exit 1? Exit my program? And how to test this script? Meaby my script is good for anti debug? : If @error <> 0 Then SetError(0) EndIf

Hello what is final version IE.au3? Becouse i have: -###2 Obfuscation Error: Found Execute() statement which will lead to problems running your obfuscated script. >### current Func: _IEFormElementCheckboxSelect D:\Program Files\AutoIt3\include\IE.au3(1500,1) Warning for line:$oItems = Execute("$o_object.elements('" & $s_Name & "')") -###2 Obfuscation Error: Found Execute() statement which will lead to problems running your obfuscated script. >### current Func: _IEFormElementRadioSelect D:\Program Files\AutoIt3\include\IE.au3(1615,1) Warning for line:Local $oItems = Execute("$o_object.elements('" & $s_Name & "')") -###2 Obfuscation Error: Found Execute() statement which will lead to problems running your obfuscated script. >### current Func: _IEPropertyGet D:\Program Files\AutoIt3\include\IE.au3(2810,1) Warning for line:$aVcard[1][$i] = Execute('$o_object.document.parentwindow.top.navigator.userProfile.getAttribute("' & $aVcard[0][$i] & '")') -### Obfuscation Error: Found ObjEvent() statement using unsolvable Func, which will/could lead to problems running your obfuscated script. >### current Func: _IEErrorHandlerRegister D:\Program Files\AutoIt3\include\IE.au3(3102,1) Warning for line:$oIEErrorHandler = ObjEvent("AutoIt.Error", $s_functionName) -### Obfuscation Error: Found ObjEvent() statement using unsolvable Func, which will/could lead to problems running your obfuscated script. >### current Func: __IEInternalErrorHandlerDeRegister D:\Program Files\AutoIt3\include\IE.au3(3748,1) Warning for line:$oIEErrorHandler = ObjEvent("AutoIt.Error", $sIEUserErrorHandler) -###2 Obfuscation Error: Found Execute() statement which will lead to problems running your obfuscated script. >### current Func: _WinAPI_SetLayeredWindowAttributes D:\Program Files\AutoIt3\include\WinAPI.au3(5364,1) Warning for line:$i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2)) -############################################################################################# -#### Obfuscator Found 6 Error(s)!!!! This means your script could have problems running properly. #### -############################################################################################# +> Obfuscator v1.0.27.0 finished obfuscating 10563 lines, stripped 11402 comment lines. created:D:\