Kogmedia

Try this, gets past line 86 but not fully tested : #Region;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=Gixen.ico #EndRegion;**** Directives created by AutoIt3Wrapper_GUI **** #include <IE.au3> #include <INet.au3> #include <array.au3> #include <File.au3> #Include <Date.au3> Global $TITLE = 'AutoSnipe' Global $EXT = '.txt' Global $GixenUserName Global $GixenPassword Global $NoSnipe = 0 Global $oRead Global $oIE Global $ie_visable = 0 ;0=IE Hidden; 1=Visable Dim $ItemNumber,$Bid,$GixenUserName,$sInputBoxAnswer #Region --- CodeWizard generated code Start --- ;InputBox features: Title=Yes, Prompt=Yes, Default Text=No, Width=140, Height=125 If Not IsDeclared("sInputBoxAnswer") Then Local $sInputBoxAnswer $sInputBoxAnswer = InputBox("Autosnipe Login","USERNAME",""," M","140","125","-1","-1") Select Case @Error = 0;OK - The string returned is valid If $sInputBoxAnswer = "" Then Exit $GixenUserName = $sInputBoxAnswer Case @Error = 1;The Cancel button was pushed Exit Case @Error = 3;The InputBox failed to open Exit EndSelect #EndRegion --- CodeWizard generated code End --- #Region --- CodeWizard generated code Start --- ;InputBox features: Title=Yes, Prompt=Yes, Default Text=No, Width=140, Height=125 If Not IsDeclared("sInputBoxAnswer") Then Local $sInputBoxAnswer $sInputBoxAnswer = InputBox("Autosnipe Login","PASSWORD","","*","140","125","-1","-1") Select Case @Error = 0;OK - The string returned is valid If $sInputBoxAnswer = "" Then Exit $GixenPassword = $sInputBoxAnswer Case @Error = 1;The Cancel button was pushed Exit Case @Error = 3;The InputBox failed to open Exit EndSelect While 1 #Region --- CodeWizard generated code Start --- ;InputBox features: Title=Yes, Prompt=Yes, Default Text=No, Width=200, Height=30 If Not IsDeclared("sInputBoxAnswer") Then Local $sInputBoxAnswer $sInputBoxAnswer = InputBox("Autosnipe Batch-Mode","Add an Item Number",""," ","200","30","-1","-1") Select Case @Error = 0;OK - The string returned is valid If $sInputBoxAnswer = "" Then Exit $ItemNumber = $sInputBoxAnswer Case @Error = 1;The Cancel button was pushed Exit Case @Error = 3;The InputBox failed to open Exit EndSelect #EndRegion --- CodeWizard generated code End --- If Not IsDeclared("sInputBoxAnswer") Then Local $sInputBoxAnswer $sInputBoxAnswer = InputBox("Autosnipe Batch-Mode","Snipe Amount",""," ","200","30","-1","-1") Select Case @Error = 0;OK - The string returned is valid If $sInputBoxAnswer = "" Then Exit $Bid = $sInputBoxAnswer Case @Error = 1;The Cancel button was pushed Exit Case @Error = 3;The InputBox failed to open Exit EndSelect #EndRegion --- CodeWizard generated code End --- TrayTip("Adding Snipe","eBay#: "&$ItemNumber&@TAB&"Snipe: "&$Bid,10) $return = GixenSnipe($ItemNumber,$Bid) If $return <> 1 Then TrayTip("Error!","eBay#: "&$ItemNumber&@TAB&"Snipe: "&$Bid,10) MsgBox(0,"Autosnipe",$return,30) EndIf TrayTip("","",0) WEnd Func GixenSnipe($ItemNumber,$Bid) If $oIE = 0 Then $oIE = _IECreate("https://www.gixen.com/autosnipe.php",0,$ie_visable,1,1) _IELoadWait($oIE) $oForm = _IEFormGetCollection ($oIE, 0) $oFormUsername = _IEFormElementGetObjByName($oForm,"username") $oFormPassword = _IEFormElementGetObjByName($oForm,"password") $oFormItemId = _IEFormElementGetObjByName($oForm,"itemid") $oFormBid = _IEFormElementGetObjByName($oForm,"maxbid") _IEFormElementSetValue($oFormUsername,$GixenUserName) _IEFormElementSetValue($oFormPassword,$GixenPassword) _IEFormElementSetValue($oFormItemId,$ItemNumber) _IEFormElementSetValue($oFormBid,$Bid) _IEFormSubmit($oForm) Sleep(1000) _IELoadWait($oIE) $oRead = _IEBodyReadText($oIE) _IEQuit($oIE) If StringInStr($oRead,"Added item ") = 0 Then Return('Item#: '&@TAB&$ItemNumber&@CRLF&'Bid: '&@TAB&$Bid&@CRLF&StringTrimLeft($oRead,54)) Else Return(1) EndIf Return(0) EndFunc

Gixen no longer requires Mirror Subscription for Autosnipe (above problem fixed)

I am using this page http://www.cpu-world.com/CPUs/Core_2/Intel...0562Q6600).html I am have problems with this rstringreg expression. StringRegExpReplace($HTML,(?i)(<a href=\".*\"\>),'') I want to remove all the links but leave the text, it works for the first coupple but the get 2 in one array 0 => <A href="http://www.cpu-world.com/CPUs/CPU.html"> 1 => <A href="http://www.cpu-world.com/CPUs/Core_2/TYPE-Core%202%20Quad.html"> 2 => <A href="http://www.cpu-world.com/sspec/SL/SL9UM.html">SL9UM</A> &nbsp; <A href="http://www.cpu-world.com/sspec/SL/SLACR.html"> 3 => <A href="http://www.cpu-world.com/sspec/QM/QMAQ.html">QMAQ</A> &nbsp; <A href="http://www.cpu-world.com/sspec/QU/QUPT.html">QUPT</A> &nbsp; <A href="http://www.cpu-world.com/sspec/QX/QXVD.html">QXVD</A> &nbsp; <A href="http://www.cpu-world.com/sspec/SL/SL9UM.html">SL9UM</A> &nbsp; <A href="http://www.cpu-world.com/sspec/SL/SLACR.html"> 4 => <A href="http://www.cpu-world.com/Sockets/Socket%20775%20(LGA775).html"> I have looked on the forum This is the output I am trying to get 0 => <A href="http://www.cpu-world.com/CPUs/CPU.html"> 1 => <A href="http://www.cpu-world.com/CPUs/Core_2/TYPE-Core%202%20Quad.html"> 2 =><A href="http://www.cpu-world.com/sspec/SL/SL9UM.html"> 3 => <A href="http://www.cpu-world.com/sspec/SL/SLACR.html"> Thanks, Keith Source

eBay Multi Snipe The password is not stored on your computer! SSL encryption with Gixen! Gixen is a FREE Highly Reliable & Secure eBay Auction Sniper Source Code #Region;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=Gixen.ico #EndRegion;**** Directives created by AutoIt3Wrapper_GUI **** #include <IE.au3> #include <INet.au3> #include <array.au3> #include <File.au3> #Include <Date.au3> Global $TITLE = 'AutoSnipe' Global $EXT = '.txt' Global $GixenUserName Global $GixenPassword Global $NoSnipe = 0 Global $oRead Dim $ItemNumber,$Bid,$GixenUserName,$sInputBoxAnswer #Region --- CodeWizard generated code Start --- ;InputBox features: Title=Yes, Prompt=Yes, Default Text=No, Width=140, Height=125 If Not IsDeclared("sInputBoxAnswer") Then Local $sInputBoxAnswer $sInputBoxAnswer = InputBox("Autosnipe Login","USERNAME",""," M","140","125","-1","-1") Select Case @Error = 0;OK - The string returned is valid If $sInputBoxAnswer = "" Then Exit $GixenUserName = $sInputBoxAnswer Case @Error = 1;The Cancel button was pushed Exit Case @Error = 3;The InputBox failed to open Exit EndSelect #EndRegion --- CodeWizard generated code End --- #Region --- CodeWizard generated code Start --- ;InputBox features: Title=Yes, Prompt=Yes, Default Text=No, Width=140, Height=125 If Not IsDeclared("sInputBoxAnswer") Then Local $sInputBoxAnswer $sInputBoxAnswer = InputBox("Autosnipe Login","PASSWORD","","*","140","125","-1","-1") Select Case @Error = 0;OK - The string returned is valid If $sInputBoxAnswer = "" Then Exit $GixenPassword = $sInputBoxAnswer Case @Error = 1;The Cancel button was pushed Exit Case @Error = 3;The InputBox failed to open Exit EndSelect While 1 #Region --- CodeWizard generated code Start --- ;InputBox features: Title=Yes, Prompt=Yes, Default Text=No, Width=200, Height=30 If Not IsDeclared("sInputBoxAnswer") Then Local $sInputBoxAnswer $sInputBoxAnswer = InputBox("Autosnipe Batch-Mode","Add an Item Number",""," ","200","30","-1","-1") Select Case @Error = 0;OK - The string returned is valid If $sInputBoxAnswer = "" Then Exit $ItemNumber = $sInputBoxAnswer Case @Error = 1;The Cancel button was pushed Exit Case @Error = 3;The InputBox failed to open Exit EndSelect #EndRegion --- CodeWizard generated code End --- If Not IsDeclared("sInputBoxAnswer") Then Local $sInputBoxAnswer $sInputBoxAnswer = InputBox("Autosnipe Batch-Mode","Snipe Amount",""," ","200","30","-1","-1") Select Case @Error = 0;OK - The string returned is valid If $sInputBoxAnswer = "" Then Exit $Bid = $sInputBoxAnswer Case @Error = 1;The Cancel button was pushed Exit Case @Error = 3;The InputBox failed to open Exit EndSelect #EndRegion --- CodeWizard generated code End --- TrayTip("Adding Snipe","eBay#: "&$ItemNumber&@TAB&"Snipe: "&$Bid,10) $return = GixenSnipe($ItemNumber,$Bid) If $return <> 1 Then TrayTip("Error!","eBay#: "&$ItemNumber&@TAB&"Snipe: "&$Bid,10) MsgBox(0,"Autosnipe",$return,30) EndIf TrayTip("","",0) WEnd Func GixenSnipe($ItemNumber,$Bid) If WinExists("Gixen Autosnipe") <> 0 Then $oIE = _IECreate("https://www.gixen.com/autosnipe.php",0,0,1,1) _IELoadWait($oIE) $oForm = _IEFormGetCollection ($oIE, 0) $oFormUsername = _IEFormElementGetObjByName($oForm,"username") $oFormPassword = _IEFormElementGetObjByName($oForm,"password") $oFormItemId = _IEFormElementGetObjByName($oForm,"itemid") $oFormBid = _IEFormElementGetObjByName($oForm,"maxbid") _IEFormElementSetValue($oFormUsername,$GixenUserName) _IEFormElementSetValue($oFormPassword,$GixenPassword) _IEFormElementSetValue($oFormItemId,$ItemNumber) _IEFormElementSetValue($oFormBid,$Bid) _IEFormSubmit($oForm) Sleep(1000) _IELoadWait($oIE) $oRead = _IEBodyReadText($oIE) _IEQuit($oIE) If StringInStr($oRead,"Added item ") = 0 Then Return('Item#: '&@TAB&$ItemNumber&@CRLF&'Bid: '&@TAB&$Bid&@CRLF&StringTrimLeft($oRead,54)) Else Return(1) EndIf Return(0) EndFunc

If you what to do it with Internet Explorer the right click menu reg is [HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt] Have a look for http://msdn2.microsoft.com/en-us/library/aa753589.aspx for how this works. For Firefox Addon "download them all" has this feature

There is an image and a link linking to the same place so it doesn't detect <img tag ViewItem"\>([^\<img].*?)\<\/a\>

Thanks a MILLION! SmOke_N I have some other RegExp can you confirm that I understand correctly. An escape character is a means that it will be taken as a literal character? Would this be put on all character that aren't letter or digit? So ViewItem">([^<].*?)</a> ViewItem"\>([^<].*?)\<\/a> <td class="ebLower ebcBid">(.*?)</td> \<td class="ebLower ebcBid\"\>(.*?)\<\/td\> <span class="shpTxt">(.*?)</span> \<span class="shpTxt"\>(.*?)\<\/span\> <td class="ebLower ebcTim">(.*?)</td> \<td class="ebLower ebcTim"\>(.*?)\<\/td\>

Why does this give me a blank value in the array? Anyone know a workaround? Here a example of the problem #include <Array.au3> Dim $Price $source = '<span class="ebSold">£19.00</span><span class="ebEnded">£39.99</span>' $Price = StringRegExp($source,'<span class="ebSold">£(.*?)</span>|<span class="ebEnded">£(.*?)</span>', 3) _ArrayDisplay($Price,"Price") Thanks, Keith

Added Source Zip

This works #include <GUIConstants.au3> $Form1 = GUICreate("AForm1", 633, 447, 193, 115) $combo = GUICtrlCreateCombo("", 150, 150, 280, 20) GUICtrlSetData($combo, "Site1|Site2|Site3|Site4", "Site1") GUICtrlSetFont(-1, 14, 400, 0, "Comic Sans MS") $RUN = GUICtrlCreateButton("Run", 32, 360, 169, 65, 0) GUICtrlSetFont(-1, 14, 400, 0, "Comic Sans MS") $EXIT = GUICtrlCreateButton("Exit", 436, 359, 169, 65, 0) GUICtrlSetFont(-1, 14, 400, 0, "Comic Sans MS") $Label1 = GUICtrlCreateLabel("Network Config", 16, 8, 216, 44) GUICtrlSetFont(-1, 22, 400, 0, "Comic Sans MS") GUICtrlSetColor(-1, 0x0000FF) GUISetState(@SW_SHOW) Do $msg = GUIGetMsg() Switch $msg Case $RUN $comboread = GUICtrlRead($combo) Switch $comboread Case "Site1" RunWait ("C:\System\Ipchange\Site1.exe") Case "Site2" RunWait ("C:\System\Ipchange\Site2.exe") Case "Site3" RunWait ("C:\System\Ipchange\Site3.exe") Case "Site4" RunWait ("C:\System\Ipchange\Site4.exe") EndSwitch EndSwitch Until $msg = $EXIT or $msg = $RUN

Can someone test this for me I have tested on 32-bit, if someone could let me know if working on X64 it should give you a msgbox saying "OS 64" $IsWow64 = DllCall("kernel32.dll","int","IsWow64") Switch $IsWow64 Case 0 MsgBox(0,"OS","32") Case 1 MsgBox(0,"OS","64") EndSwitch Thanks

Hello, Koda Version 1.6.0.2 If I make a GUI with a Main Menu Save then Delete I Get Error Msg Above

You want Send() command

Hello, Its isn't possible as there are no forms objects on the page... You could fill out the forms with a SEND command but the window would have to be visible.

Here is an IconViewer not quote what you are looking for bur may give you some inspiration. #include <GUIConstants.au3> #Include <GuiListView.au3> GUICreate("Shell32.dll icons") $listview = GUICtrlCreateListView ("Shell32.dll icons",0,0,400,350) _GUICtrlListViewSetColumnWidth ( -1, 0, $LVSCW_AUTOSIZE_USEHEADER ) GUICtrlSetStyle($listview,$LVS_ICON) for $i = 0 to 237 GUICtrlCreateListViewItem($i,$listview) GUICtrlSetImage (-1, "shell32.dll", $i,1) Next global $state = 1 $button = GUICtrlCreateButton("Switch",0,351,400,50) GUISetState (@SW_SHOW) ; will display an empty dialog box While 1 $msg = GUIGetMsg() select case $msg = $GUI_EVENT_CLOSE ExitLoop case $msg = $button select case $state = 1 $state = 2 GUICtrlSetStyle($listview,$LVS_LIST) case $state = 2 $state = 3 GUICtrlSetStyle($listview,$LVS_SMALLICON) case $state = 3 $state = 1 GUICtrlSetStyle($listview,$LVS_ICON) EndSelect EndSelect Wend

Koda give me this error when I delete a Main Menu? Access violation at address 00403AFA in module 'FD.exe'. Read of address 000000A4. Koda is Awsome!

Quick Search Search the Internet from the Tray Includes Brian's Search Engine an alternative windows search... Requires: Firefox Download Setup Download Source Right Click Menu Search Engine Settings Brian's Search Engine

Run this #include <GUIConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("AForm1", 363, 83, 193, 115) $Input1 = GUICtrlCreateInput("", 40, 16, 273, 21) $Label1 = GUICtrlCreateLabel("", 40, 48, 275, 17) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Input1 GUICtrlSetData( $Label1, "You Entered: "&GUICtrlRead($Input1) ) EndSwitch WEnd

Thanks I will have a play with that tonight Need to learn dll calls

I have tried to do this before I couldn't do it and hence I don't think is possible apart from a icon, I think the closest that you can do is have a picture (gui picture object) and have it update when you click on an item in your list box.

Vista uses standard regedit ... I don't know where the key for OSArch is held in registry My work around... If StringInStr(@ProgramFilesDir,"(x86)") Then $OSVesion = 'X64'; OS is 64bit Else $OSVesion = 'X86' OS is 32bit EndIf MsgBox(0,"",$OSVesion)

OSTYPE returns WIN32_NT on VISTA X64OSTYPE returns WIN32_NT on XP 32

Hello, I am making a script to install dotnet framework I need a OS Arch I have searched the help file but can't seam to find a command... Anyone know a UDF or a workaround? Thanks

Hello, I have made a search script for diffrent search engines.... What I would like to do is have a left click on the tray open up the search box and a right click for the config menu is this possible? Thanks

OK Thanks