Jump to content

frostfel

Active Members
  • Posts

    44
  • Joined

  • Last visited

About frostfel

  • Birthday 02/18/1985

Profile Information

  • Interests
    WoW, CS:S, Scripting

frostfel's Achievements

Seeker

Seeker (1/7)

0

Reputation

  1. Edit: Post above is basically same thing shorter use that. If you want your AutoIt script to autorun compile it to exe and use this guide to make the exe autorun http://www.cdmenupro.com/autorun.htm
  2. I also want to do this cant figure it out tough Heres a site that allows outside access and is free http://www.freemysql.net/
  3. Here a script I made that gets the new Pandora version but you have to included "#include <IE.au3>" and open a Internet Explorer for a few seconds this will slow things down a bit but if u want if heres how to use it After theses lines: TraySetToolTip("Pandora Radio") TraySetState(2) ADD #include <IE.au3> $IETask = _IECreate("http://pandora.com/", 0, 0) $IESource = _IEDocReadHTML($IETask) _IEQuit($IETask) $IEString = StringInStr($IESource, '"https://www.pandora.com:443/') $IETrim = $IEString $IEString2 = StringTrimLeft($IESource, $IETrim) $IEString3 = $IEString2 $IEString4 = StringInStr($IEString2, '"') $IEString4 -= 1 $IEString5 = StringTrimLeft($IEString3, $IEString4) $IEString6 = StringLen($IEString5) $IEString7 = StringTrimRight($IEString2, $IEString6) $IEString8 = StringTrimRight($IEString7, 4) $Pandora_Link = $IEString8&"_mini.swf" Then change this line .Movie = 'https://www.pandora.com:443/radio/tuner_8_2_0_0_pandora_mini.swf' CHANGE TOO .Movie = $Pandora_Link
  4. This is leet. Ive been tryin to figure out how to do that hotkeys thxs for postin
  5. Update 2.0: Added minimize to tray and exit from tray
  6. I made this include to read RSS files. It gets the info you want and returns it in an array. Im sure there are better or more scripts to do this but heres mine: Heres sample: This would get all the story titles on Digg The MsgBox only shows the 1st 5 though $Test1 = _RSSGetInfo("http://digg.com/rss/index.xml", "<title>", "</title>", 1) MsgBox(0, "Test", "Title 1: "&$Test1[1]&" Title 2: "&$Test1[2]&" Title 3: "&$Test1[3]&" Title 4: "&$Test1[4]&" Title 5: "&$Test1[5]) If you want to get something else goto the RSS you want to use and view the source then look find what you want say its a description of story find the any description in the source and you should see something like this: Notice the <description> and the </description> so in the call do $Test1 = _RSSGetInfo("http://digg.com/rss/index.xml", "<description>", "</description>") MsgBox(0, "Test", "Title 1: "&$Test1[1]&" Title 2: "&$Test1[2]&" Title 3: "&$Test1[3]&" Title 4: "&$Test1[4]&" Title 5: "&$Test1[5]) You don't need to put a ", 1)" because that would skip the 1st description which you don't want to do but if you wanted titles the first title would be "Digg" because thats the title of the page and you might not want to include that if you want just story titles _RSS.au3 #include-once #region _RSS ; RSS Reader ; Created By: Frostfel #include <INet.au3> #include <Array.au3> ; ============================================================================ ; Function: _RSSGetInfo($RSS, $RSS_InfoS, $RSS_InfoE[, $RSS_Info_ = 1]) ; Description: Gets RSS Info ; Parameter(s): $RSS = RSS Feed Example: "http://feed.com/index.xml" ; $RSS_InfoS = String to find for info start Example: <title> ; $RSS_InfoE = String to find for info end Example: </title> ; $RSS_Info_Start = [optional] <info>/</info> To start at ; Some RSS feeds will have page titles ; you dont want Defualt = 0 ; Requirement(s): None ; Return Value(s): On Success - Returns RSS Info in Array Starting at 1 ; On Failure - Returns 0 ; @Error = 1 - Failed to get RSS Feed ; Author(s): Frostfel ; ============================================================================ Func _RSSGetInfo($RSS, $RSS_InfoS, $RSS_InfoE, $RSS_Info_Start = 0) $RSSFile = _INetGetSource($RSS) If @Error Then SetError(1) Return -1 EndIf Dim $InfoSearchS = 1 Dim $Info[1000] Dim $InfoNumA $InfoNum = $RSS_Info_Start While $InfoSearchS <> 6 $InfoNum += 1 $InfoNumA += 1 $InfoSearchS = StringInStr($RSSFile, $RSS_InfoS, 0, $InfoNum) $InfoSearchE = StringInStr($RSSFile, $RSS_InfoE, 0, $InfoNum) $InfoSearchS += 6 $InfoSS = StringTrimLeft($RSSFile, $InfoSearchS) $InfoSearchE -= 1 $InfoSE_Len = StringLen(StringTrimLeft($RSSFile, $InfoSearchE)) $InfoSE = StringTrimRight($InfoSS, $InfoSE_Len) _ArrayInsert($Info, $InfoNumA, $InfoSE) WEnd Return $Info EndFunc #endregion
  7. a very bad leecher if it is malu05 then it it wouldnt be leechin but his username is abde007 and he makes up all kinds of stuff
  8. wow I dont think Ive seen much more off a leech then this ***hole http://www.gamerzplanet.net/forums/world-w...sed-thermo.html lol you gotta read the whole thing
  9. $aRecords = "D11,17,97, SAF IRA Janet 62727373, NBuy, YEuroPacific Growth, I28.070000, Q41.002000, T1,150.926140" $aRecords2 = StringReplace($aRecords, " ", "") $aRecords3 = StringSplit($aRecords2, ",") MsgBox( 0, "Test", $aRecords3[1])
  10. Took me a while to find out what you where doing. What you did is a very bad way to "FileWriteLine" do this you also tried to rename a txt file by editing a title This will get the info you want and put it in a .txt file named System.txt which will be where the AutoIt.au3 or AutoIt.exe file is $VOL = DriveGetLabel("C:\") $SERIAL = DriveGetSerial("C:\") $TOTAL = DriveSpaceTotal("C:\") $FREE = DriveSpaceFree("C:\") $FS = DriveGetFileSystem ("C:\") $FileName = "System.txt"; Name of output File FileWriteLine($FileName, "monitor:") FileWriteLine($FileName, "Ekraanilaius: "&@DesktopWidth) FileWriteLine($FileName, "Ekraanikõrgus: "&@DesktopHeight) FileWriteLine($FileName, "Ekraanivärskendus: "&@DesktopRefresh) FileWriteLine($FileName, "Ekraanivärvisügavus: "&@DesktopDepth) FileWriteLine($FileName, "Arvuti ja süsteem") FileWriteLine($FileName, "Süsteemi keel: "&@OSLang) FileWriteLine($FileName, "Süsteem_tüüp: "&@OSTYPE) FileWriteLine($FileName, "Süsteem_versioon: "&@OSVersion) FileWriteLine($FileName, "Süsteem_ehitus: "&@OSBuild) FileWriteLine($FileName, "Süsteem_SP: "&@OSServicePack) FileWriteLine($FileName, "Klaviatuuri paigutus: "&@KBLayout) FileWriteLine($FileName, "Protsessori arhidektuur: "&@ProcessorArch) FileWriteLine($FileName, "Arvuti nimi: "&@ComputerName) FileWriteLine($FileName, "Hetkel aktiivne kasutaja: "&@UserName) FileWriteLine($FileName, "windows on kataloogis: "&@WindowsDir) FileWriteLine($FileName, "Windows on kettal: "&@HomeDrive) FileWriteLine($FileName, "Kasutaja profiilid: "&@UserProfileDir) FileWriteLine($FileName, "start menüü: "&@StartMenuDir) FileWriteLine($FileName, "töölaua asukoht: "&@DesktopDir) FileWriteLine($FileName, "start menüü: "&@StartMenuDir) FileWriteLine($FileName, "ketta C:\ nimetus: "&$VOL) FileWriteLine($FileName, "ketta C:\ kogu suurus: "&$Total) FileWriteLine($FileName, "ketta C:\ vabaruum: "&$FREE) FileWriteLine($FileName, "ketta C:\ serialli nr: "&$SERIAL) FileWriteLine($FileName, "ketta C:\ failisüsteem: "&$FS) FileWriteLine($FileName, "IP aadress on: "&@IPAddress1 )
  11. Ive been messin around with DLL Export Viewer it lets you see all the functions a process is able to use from the dlls its attached. So I loaded TSearch and did that then searched for fuctions containing "search" I havent found much yet but try it yourself and see what you can find DLL Export Viewer - http://www.nirsoft.net/utils/dll_export_viewer.html
  12. Yeah Ive been woundering how to do that for a while I tried searching trough DLL functions (Use DLL Export Viewer if you want to try) and couldnt find anything to search. Ive also tried doin something where the read value increases by 1 each time but thats either very slow or doesnt work
  13. You might want to add some Sleep's to this $TaskNum = 5; Number of tasks to do $BarTotal = 1; Dont edit its to do 1/$TaskNum $BarTotal /= $TaskNum $BarTotal *= 100 $BarTask = 0 $Bar = ProgressOn( "Loading...", "Loading...", "0 Percent", 0, 0) $FileCopy1 = 1; Replace 1 with something like FileCopy $BarTask += $BarTotal If $FileCopy1 = 0 Then ProgressSet( $BarTask, "Failed!") Else ProgressSet( $BarTask, $BarTask&" Percent") EndIf $FileCopy2 = 1; Replace 1 with something like FileCopy $BarTask += $BarTotal If $FileCopy2 = 0 Then ProgressSet( $BarTask, "Failed!") Else ProgressSet( $BarTask, $BarTask&" Percent") EndIf $FileCopy3 = 1; Replace 1 with something like FileCopy $BarTask += $BarTotal If $FileCopy3 = 0 Then ProgressSet( $BarTask, "Failed!") Else ProgressSet( $BarTask, $BarTask&" Percent") EndIf $FileCopy4 = 1; Replace 1 with something like FileCopy $BarTask += $BarTotal If $FileCopy4 = 0 Then ProgressSet( $BarTask, "Failed!") Else ProgressSet( $BarTask, $BarTask&" Percent") EndIf $FileCopy5 = 1; Replace 1 with something like FileCopy $BarTask += $BarTotal If $FileCopy5 = 0 Then ProgressSet( $BarTask, "Failed!") Else ProgressSet( $BarTask, $BarTask&" Percent") EndIf
  14. You can use that packet sending program and mybe have AutoIt work with it (Sry dont remember name of it) or you could look at this WoW Packet Sniffer and try to see what it does http://www.autoitscript.com/forum/index.php?showtopic=37998 just found this probly much more helpful http://www.autoitscript.com/forum/index.php?showtopic=54039
  15. Your not formating your commands right I dont know what Macro Scheduler is but I dont think it does AU3 Theres a very big diffrence between Macro Scheduler and AutoIt code its like 2 different languages which is why there called programing/scripting languages $Text = FileReadLine("C:\Hekk.txt, 1) WinActivate("**** - Conversation") Send($Text) ; Alternate way that works even if window is minimized (Might not work with your IM program though) $Text = FileReadLine("C:\Hekk.txt, 1) ControlSend("**** - Conversation", "", "", $Text) You should probly look at some of the tutorials for AutoIt3
×
×
  • Create New...