
turbox
Active Members-
Posts
50 -
Joined
-
Last visited
Everything posted by turbox
-
Here is a simple hexadecimal generator for mips instructions: The generated output is customized to fit in xilinx. Supports lw,sw,add,sub,mult,or,and and some custom instructions (context of my course), but easily extendable. source.zip
-
ok thank you
-
Hello i have a simple edit box and when i press ctrl-a (to select all the data of the box) it does nothing. Is it possible to fix this? Thank you.
-
Ok my friend thank you.
-
$str="a,b,c,d" I want to split using the regexp: (?<!), After the split i want to have: $split={"a,b","c,d"} To jos: As far as i know the StringRegExp only match, it does not split. Thank you
-
Hello, Can somebody tell me if there is any function like the StringSplit, but instead of text as pattern to accept regexp? Thank you
-
Multidimension array (_HTTPRead)
turbox replied to turbox's topic in AutoIt General Help and Support
solved. I have to assign the array to another var -
Hello, I was trying some http headers retrieval but i get some errors that i can't explain So, i have: $recv = _HTTPRead($socket,1) $headerName=$recv[3][0][0] // here i get error The $recv[3] is a 2 dimensions array (tested with _ArrayDisplay($recv[3])) Can somebody help? Thank you
-
solved i didn't save the file
-
Hello, I used to work with autoit before 2-3 years and i remember that in the scite, were tools like tidy and kode. But now i there are no tools in the tools tab. I have installed the full scite package. Can someone help me? Thank you
-
Post Http authentication + Post data
turbox replied to Pippo123's topic in AutoIt General Help and Support
you save the cookie the page replies to you and use it for the next request -
I have this line of code: $NUMBERS[$cooords[$x][0]][$cooords[$x][1]] = GUICtrlRead($txt[$x + ($m-1)*9]) And when i run the program ( not when i do a syntax check ) is throwing me out an error: 'Expected a "=" operator in assignment statement.:' Can somebody help me? (i didn't declare the var earlier)
-
thank you, i will try it.
-
When i try set the value of a text box to a greek string i always get something like this: "οΏ½οΏ½οΏ½οΏ½ οΏ½οΏ½οΏ½οΏ½" Does anybody know how i can fix it?
-
when i am online i mean i tried _IEpropertyset and _Iedocwritehtml but nothing
-
How i can add an element to an object? px. <input type="text" onkeyup="alert('a')" size="5" value="" id="inputx" tabindex="13" name="x"/> to be <input type="text" onkeyup="alert('a')" size="5" value="" id="inputx" tabindex="13" onblur="alert('lfocus')" name="x"/>
-
Is it possible to get an image which is displayed on a webpage but it generated by a php script, automatically? ( its captcha) the source of the image is : .../generator.php
-
execute javascript on webbrowser
turbox replied to turbox's topic in AutoIt General Help and Support
i get it done with _IEnavigate($oiE, "java script:alert('asa');") -
I saw something like : _IEHeadInsertEventScript but i didn't find out how to do it. Let say we have this: $oIE = _IECreate("google.com") how i can execute : "java script:alert(document.cookie);" on that page ?
-
This tool will let you choose files to copy. If in The dir in which file exist with name video.avi is a file with name video.srt will copy both files to a specific location and will convert the video.srt to unicode If you choose a file with subtitle the label colour will be blue (This tool help me a lot because when i copy a movie to my hdd player sometimes i forget to convert the subtitles to unicode. It makes me sick so i created this tool) (updated) #include <GUIConstants.au3> #include <file.au3> #include <winapi.au3> Opt("GUIOnEventMode", 1) Dim $arraydat[1][5] Global $folder, $dir, $drive, $pathexd, $filen, $fileend $i = 75 $help = "" $fname = "Form1" $Form1 = GUICreate($fname, 633, 447, 193, 125) $Button1 = GUICtrlCreateButton("Start", 512, 400, 113, 41, 0) $Obj1 = ObjCreate("CompatUI.SelectFile.1") $Obj1_ctrl = GUICtrlCreateObj(obj($Obj1), 56, 56, 486, 93) GUICtrlSetState(-1, $GUI_ACCEPTFILES) GUISetState(@SW_SHOW) GUISetOnEvent(-3, "exitgui") GUICtrlSetOnEvent($Button1, "Startp") $is = -1 While 1 $is += 1 While 1 $gettext = $Obj1.FileName() If $gettext <> $help Then $i += 11 $arraydat[$is][0] = $gettext;path C:\a\a.vad GUICtrlCreateLabel($gettext, 56, $i) $Obj1.FileName = "" $getu = StringReplace($gettext, "avi", "srt") If FileExists($getu) Then GUICtrlSetColor(-1, 0x0000FF) $arraydat[$is][2] = "1";1 or n Else EndIf _PathSplit($gettext, $drive, $pathexd, $filen, $fileend) $Obj1.BrowseInitialDirectory = $drive & $pathexd ExitLoop Else EndIf WEnd ReDim $arraydat[$is + 2][5] WEnd Func exitgui() Exit EndFunc ;==>exitgui Func Getun($str, $stop) Local $word = "" For $iasdf = 1 To StringLen($str) Step 1 $charat = StringMid($str, $iasdf, 1) If $charat = $stop Then ExitLoop $word &= $charat Next Return $word EndFunc ;==>Getun Func obj($var) With $var .BrowseTitle = "Διάλεξε αρχεία" .BrowseInitialDirectory = "E:\ADownloads" .BrowseFilter = "Allfiles (*.*)" EndWith Return $var EndFunc ;==>obj Func Startp() $folder = FileSelectFolder("Choose folder", "") $rows = UBound($arraydat) For $sc = 0 To $rows - 2 Step 1 _PathSplit($arraydat[$sc][0], $drive, $pathexd, $filen, $fileend) $arraydat[$sc][1] = $filen & $fileend;movie.avi $arraydat[$sc][3] = $drive & $pathexd & $filen & ".srt";path with sub $arraydat[$sc][4] = $filen & ".srt";sub name Next For $1i = 0 To UBound($arraydat) - 2 Step 1 $num = $arraydat[$1i][2] If $num = 0 Then _FileCopy($arraydat[$1i][0], $folder & "\") Else _FileCreate($folder & "\" & $arraydat[$1i][4]) $fo = FileOpen($arraydat[$1i][3], 0) $fr = FileRead($fo) $unic = DllStructGetData(_WinAPI_MultiByteToWideChar($fr), 1) $fw = FileOpen($folder & "\" & $arraydat[$1i][4], 2) FileWrite($fw, $unic) _FileCopy($arraydat[$1i][0], $folder & "\") EndIf Next EndFunc ;==>Startp Func _FileCopy($fromFile, $tofile) Local $FOF_RESPOND_YES = 16 Local $FOF_SIMPLEPROGRESS = 256 $winShell = ObjCreate("shell.application") $winShell.namespace($tofile).CopyHere($fromFile, $FOF_RESPOND_YES) EndFunc ;==>_FileCopy The link below are not updated filecopy.au3 filecopy.exe
-
Here is the script: #include <GUIConstants.au3> $Form1 = GUICreate("Hex Encoder", 473, 240, 193, 125) $Label1 = GUICtrlCreateLabel("Enter Url:", 24, 8, 82, 28) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x0054E3) GUICtrlSetBkColor(-1, 0x000000) $Label2 = GUICtrlCreateLabel("Hex Encoded:", 24, 80, 124, 28) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) GUICtrlSetBkColor(-1, 0x000000) GUISetBkColor(0x808080) $inp = GUICtrlCreateInput("", 24, 40, 393, 21) $edit = GUICtrlCreateEdit("", 24, 120, 393, 73) $Encode = GUICtrlCreateButton("Encode", 328, 208, 89, 25, 0) GUISetState(@SW_SHOW) $check = 0 While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Encode if $check <> 1 Then GUICtrlSetData($edit, "") $readurl = GUICtrlRead($inp) $encoded = urlenc($readurl) GUICtrlSetData($edit, $encoded) $check = 1 EndSwitch WEnd Func urlenc($strw) $out= "" $bin = StringToBinary($strw) $nstrw = StringMid($bin, 3, StringLen($bin)-2) for $i=1 to Stringlen($nstrw) step 2 $enct = StringMid($nstrw, $i, 2) $out &= "%" & $enct Next Return $out EndFunc
-
Is there any way to have in my gui i folder choser. on activex there is a fileselect but not for folder. Can somebody help me?
-
Is There any way except control* to use the data of that activex i tried guictrlread but nothing Does someone has any idea? $fname = "Form1" $Form1 = GUICreate($fname, 633, 447, 193, 125) $Obj1 = ObjCreate("CompatUI.SelectFile.1") $Obj1_ctrl = GUICtrlCreateObj($Obj1, 56, 56, 486, 93) (And no fileopendialog)
-
This is the script: #include <GUIConstantsEx.au3> #include <inet.au3> $i = 1 Opt("GUIOnEventMode", 1) $sleep = 2444 $Form1 = GUICreate("AutoCheck", 136, 165, 193, 125) $b = GUICtrlCreateLabel("Local2", 24, 64, 84, 36) GUICtrlSetFont(-1, 22, 400, 0, "MS Sans Serif") $a = GUICtrlCreateLabel("Local1", 24, 16, 84, 36) GUICtrlSetFont(-1, 22, 400, 0, "MS Sans Serif") $c = GUICtrlCreateLabel("Local3", 24, 112, 84, 36) GUICtrlSetFont(-1, 22, 400, 0, "MS Sans Serif") GUISetState(@SW_SHOW) GUISetOnEvent(-3, "exitgui") while 1 $i += 1 $getsource1 = _INetGetSource("http://blue-whitegt.com/signup.php") if StringInStr($getsource1, "Registration Disabled") Then $valid1 = 2 Else $valid1 = 1 EndIf $getsource2 = _INetGetSource("http://www.torrentleech.org/index.php") if StringInStr($getsource2, "Signups are closed") Then $valid2 = 2 Else $valid2 = 1 EndIf $getsource3 = _INetGetSource("http://www.bitmetv.org/login.php") if StringInStr($getsource3, "Find an invite") Then $valid3 = 2 Else $valid3 = 1 EndIf $alltog = $valid1 & $valid2 & $valid3 _setlab($alltog) TraySetToolTip($i) sleep($sleep) WEnd Func _setlab($only) For $i = 1 To 3 Step 1 $num = StringMid($only, $i, 1) Switch $i Case 1 $lab = $a Case 2 $lab = $b Case 3 $lab = $c EndSwitch If $num = 1 Then $col = 0x0054E3 Else $col = 0xD8E4F8 EndIf GUICtrlSetBkColor($lab, $col) Next EndFunc;==>_settext Func exitgui() exit EndFunc The labels will be on dark blue when the registrations open