Jump to content

turbox

Active Members
  • Posts

    50
  • Joined

  • Last visited

Everything posted by turbox

  1. 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
  2. ok thank you
  3. 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.
  4. Ok my friend thank you.
  5. $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
  6. Hello, Can somebody tell me if there is any function like the StringSplit, but instead of text as pattern to accept regexp? Thank you
  7. solved. I have to assign the array to another var
  8. 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
  9. solved i didn't save the file
  10. 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
  11. you save the cookie the page replies to you and use it for the next request
  12. 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)
  13. thank you, i will try it.
  14. 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?
  15. when i am online i mean i tried _IEpropertyset and _Iedocwritehtml but nothing
  16. 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"/>
  17. 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
  18. i get it done with _IEnavigate($oiE, "java script:alert('asa');")
  19. 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 ?
  20. 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
  21. 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
  22. thank you
  23. 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?
  24. 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)
  25. 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
×
×
  • Create New...