Jump to content

BillLuvsU

Active Members
  • Posts

    1,510
  • Joined

  • Last visited

  • Days Won

    1

BillLuvsU last won the day on December 9 2011

BillLuvsU had the most liked content!

About BillLuvsU

  • Birthday 12/06/1989

Profile Information

  • Member Title
    Useless Member
  • Location
    Chicao, Illinois

Recent Profile Visitors

1,084 profile views

BillLuvsU's Achievements

Universalist

Universalist (7/7)

8

Reputation

  1. So bearing the risk of being a necro here, I've recently come across a need for this and just can't seem to get it to work. Here is the error I'm recieving. Not really all that familar with webservers and a few hours of playing around with things has wielded no results. On Win 7 64bit. C:LightTPD>2012-07-07 22:30:02: (plugin.c.169) dlopen() failed for: lib/mod_ind exfile.dll No such file or directory 2012-07-07 22:30:02: (server.c.694) loading plugins finally failed Edit: I know I got this to work a few years ago that was using the AutoIt.me instructions, but since that site is down my searching led me to this thread. However I assume the steps are the same? Edit2: And of course as soon as I post here I get it working. Go figure amiright? For anyone else running into this problem I simply edited the default config file to the style of the one included here. 1. Uncomment the "mod_cgi" line near the top of the file. 2 Change the mod_cgi section near the middle to: #### CGI module cgi.assign = ( ".au3" => "C:/Workspace/AU3/AuCGI.exe" )
  2. For reference purposes, UAC was the culprit. Added a #RequireAdmin and it works fine now.
  3. Hey Dale, I'm actually trying out IECreatePseudoEmbedded atm, getting weird errors when I switched it out into my script though. >Running:(3.3.8.1):C:Program Files (x86)AutoIt3autoit3.exe "C:UsersBillDesktopAutoItGsmDBGSMdb.au3" --> IE.au3 V2.4-0 Error from function _IENavigate, $_IEStatus_InvalidObjectType --> IE.au3 V2.4-0 Error from function _IEAction, $_IEStatus_InvalidObjectType +>18:36:35 AutoIT3.exe ended.rc:0 >Exit code: 0 Time: 8.346 #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <ListViewConstants.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> #include <IE.au3> #include <Array.au3> #include <WinAPI.au3> #include <Constants.au3> Const $IE_Home = @ScriptDir & "htmlhome.html" Const $DB_Path = @ScriptDir & "db" Const $Max_Phones = 999 Dim $Resources_Phones[$Max_Phones][2];Storage for phone info ;[0] = ListViewItem ID ;[1] = Index Page $structure = DirGetContents(@ScriptDir & "") _ArrayDisplay($structure) #Region ### START Koda GUI section ### Form= $GUI = GUICreate("GSMdb 0.1", 916, 481, 190, 122) $Tab = GUICtrlCreateTab(0, 0, 465, 473) $Resources_Tab = GUICtrlCreateTabItem("Resources") $Resources_List = GUICtrlCreateList("", 8, 32, 121, 435) $Resources_ListView = GUICtrlCreateListView("Name|Model|Carrier", 136, 32, 320, 433) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 75) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 75) GUISwitch($GUI) $Archives_Tab = GUICtrlCreateTabItem("Archives") GUICtrlSetState(-1,$GUI_SHOW) $Archives_List = GUICtrlCreateList("", 8, 32, 121, 435) $Archives_ListView = GUICtrlCreateListView("Date|Number|Model|MEID", 136, 32, 320, 433) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 60) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 75) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 50) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 105) GUICtrlCreateListViewItem ( "12/12/12|(603)789-4356|SPC6000|0xA000001F23EF3", $Archives_ListView ) GUISwitch($GUI) GUICtrlCreateTabItem("") ;Create Display Plane $Display_Home = GUICtrlCreateButton( "Home", 470, 3, 35, 35 ) $Display_Back = GUICtrlCreateButton( "<--", 530, 3, 35, 35 ) $Display_Forward = GUICtrlCreateButton( "-->", 570, 3, 35, 35 ) $Display = GUICreate("Resources_Display", 445, 430, 465, 40, $WS_CHILD + $WS_BORDER, -1, $GUI ) GUISetBkColor ( 0xBBBBBB ) ;_IEErrorHandlerRegister() ;Local $Display_IE = _IECreateEmbedded() ;GUICtrlCreateObj($Display_IE, 0, 0, 445, 430) $Display_IE = IECreatePseudoEmbedded(0, 0, 445, 430, $Display) GUISwitch($GUI) GUISetState(@SW_SHOW) GUISetState(@SW_SHOW, $Display) #EndRegion ### END Koda GUI section ### _IENavigate($Display_IE, $IE_Home, 0); Temporary "Home Screen" GUISwitch($GUI) ;Load Workspace LoadStructure() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_MINIMIZE _IENavigate($Display_IE, $IE_Home, 0) Case $GUI_EVENT_CLOSE _IEQuit($Display_IE) Exit Case $Archives_Tab Case $Resources_Tab Case $Display_Back _IEAction($Display_IE, "back") Case $Display_Forward _IEAction($Display_IE, "forward") Case $Display_Home _IENavigate($Display_IE, $IE_Home, 0) Case $Resources_List MsgBox(0,"",GUICtrlRead( $Resources_List ) ) Case $Resources_Phones[0][0] _IENavigate($Display_IE, $Resources_Phones[0][1], 0) EndSwitch WEnd ;------------------------------------------------- ;------------- U D F s ;------------------------------------------------- Func LoadStructure( ) ;Reference loading $contents = DirGetContents( $DB_Path & "reference" ) For $i = 1 To $contents[0];Brands GUICtrlSetData( $Resources_List, $contents[$i] ) $Phones = DirGetContents( $DB_Path & "reference" & $contents[$i] & "" ) If $Phones[0] > 0 Then For $x=1 To $Phones[0];Phones $id = GetNewPhoneID( ) $Resources_Phones[$id][0] = GUICtrlCreateListViewItem( StringReplace( $Phones[$x], ";", "|" ), $Resources_ListView ) $Resources_Phones[$id][1] = $DB_Path & "reference" & $contents[$i] & "" & $Phones[$x] & "index.html" Next EndIf Next EndFunc Func DirGetContents( $dir ) Local $return[2] $return[0] = 0 $search = FileFindFirstFile( $dir & "*" ) If $search = -1 Then FileClose( $search ) Return $return EndIf While 1 Local $file = FileFindNextFile($search) If @error Then FileClose( $search ) Return $return EndIf $return[0] += 1 ReDim $return[$return[0] + 1] $return[$return[0]] = $file WEnd EndFunc Func GetNewPhoneID( ) For $i = 0 To $Max_Phones - 1 If $Resources_Phones[$i][0] = 0 Then Return $i Next MsgBox(42,"Error","Phone array size exceded, recompile with higher $Max_Phones") Exit EndFunc Func IECreatePseudoEmbedded($i_Left, $i_Top, $i_Width, $i_Height, $h_Parent, $f_ShowWin = False, $i_Timeout = 30000) Local Const $i_Random = Random(10001, 99999, 1) Local $i_PID, $o_IE, $h_HWND, $h_Timer = TimerInit() $i_PID = Run(@ProgramFilesDir & "Internet Exploreriexplore.exe -k " & "about:blank-" & $i_Random, "", @SW_HIDE) $f_ErrorNotify = _IEErrorNotify() _IEErrorNotify(False) While Not IsObj($o_IE) $o_IE = _IEAttach("about:blank-" & $i_Random, "URL") If TimerDiff($h_Timer) > $i_Timeout Then _IEErrorNotify($f_ErrorNotify) Return SetError(1, 0, 0) EndIf Sleep(200) WEnd _IEErrorNotify($f_ErrorNotify) $h_HWND = _IEPropertyGet($o_IE, "hwnd") _WinAPI_SetParent($h_HWND, $h_Parent) _WinAPI_MoveWindow($h_HWND, $i_Left, $i_Top, $i_Width, $i_Height, True) _WinAPI_SetWindowLong($h_HWND, $GWL_STYLE, $WS_POPUP + $WS_VISIBLE) If $f_ShowWin Then WinSetState($h_HWND, "", @SW_SHOW) EndIf Return $o_IE EndFunc ;==>IECreatePseudoEmbedded Edit: I think i should mention that the first _IENavigate works fine. After that something seems to be screwing up the object but I just can't figure it out. Edit2: Ok, this one really just confused the hell out of me. If I comment out the line: LoadStructure() Then the script crashes right after it loads the page. But you can see that it loads the page just fine before it decides to crash. >Running:(3.3.8.1):C:Program Files (x86)AutoIt3autoit3.exe "C:UsersBillDesktopAutoItGsmDBGSMdb.au3" C:\Program Files (x86)\AutoIt3\Include\IE.au3 (314) : ==> The requested action with this object has failed.: $o_object.navigate($s_Url) $o_object.navigate($s_Url)^ ERROR ->18:50:21 AutoIT3.exe ended.rc:1 I need to go to work, I'll check back here when I get there.
  4. The script will crash: to clarify its a hard crash, the process stops responding. 1. whenever you scroll down a page, then switch to another window 2. whenever you select a sorting option when using it to view a local directory 3. whenever it attempts to open a new window through a link There maybe more but I those are the ones I was able to figure out for sure. This is my first time actually using this UDF library so I might be doing something wrong, but to me at least seems like it might be a problem somewhere deeper. #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <ListViewConstants.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> #include <IE.au3> #include <Array.au3> Const $IE_Home = @ScriptDir & "htmlhome.html" Const $DB_Path = @ScriptDir & "db" Const $Max_Phones = 999 Dim $Resources_Phones[$Max_Phones][2];Storage for phone info ;[0] = ListViewItem ID ;[1] = Index Page $structure = DirGetContents(@ScriptDir & "") _ArrayDisplay($structure) #Region ### START Koda GUI section ### Form= $GUI = GUICreate("GSMdb 0.1", 916, 481, 190, 122) $Tab = GUICtrlCreateTab(0, 0, 465, 473) $Resources_Tab = GUICtrlCreateTabItem("Resources") $Resources_List = GUICtrlCreateList("", 8, 32, 121, 435) $Resources_ListView = GUICtrlCreateListView("Name|Model|Carrier", 136, 32, 320, 433) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 75) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 75) GUISwitch($GUI) $Archives_Tab = GUICtrlCreateTabItem("Archives") GUICtrlSetState(-1,$GUI_SHOW) $Archives_List = GUICtrlCreateList("", 8, 32, 121, 435) $Archives_ListView = GUICtrlCreateListView("Date|Number|Model|MEID", 136, 32, 320, 433) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 60) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 75) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 50) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 105) GUICtrlCreateListViewItem ( "12/12/12|(603)789-4356|SPC6000|0xA000001F23EF3", $Archives_ListView ) GUISwitch($GUI) GUICtrlCreateTabItem("") ;Create Display Plane $Display_Home = GUICtrlCreateButton( "Home", 470, 3, 35, 35 ) $Display_Back = GUICtrlCreateButton( "<--", 530, 3, 35, 35 ) $Display_Forward = GUICtrlCreateButton( "-->", 570, 3, 35, 35 ) $Display = GUICreate("Resources_Display", 445, 430, 465, 40, $WS_CHILD + $WS_BORDER, -1, $GUI ) GUISetBkColor ( 0xBBBBBB ) _IEErrorHandlerRegister() Local $Display_IE = _IECreateEmbedded() GUICtrlCreateObj($Display_IE, 0, 0, 445, 430) GUISwitch($GUI) GUISetState(@SW_SHOW) GUISetState(@SW_SHOW, $Display) #EndRegion ### END Koda GUI section ### _IENavigate($Display_IE, $IE_Home, 0); Temporary "Home Screen" GUISwitch($GUI) ;Load Workspace LoadStructure() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_MINIMIZE _IENavigate($Display_IE, $IE_Home, 0) Case $GUI_EVENT_CLOSE Exit Case $Archives_Tab Case $Resources_Tab Case $Display_Back _IEAction($Display_IE, "back") Case $Display_Forward _IEAction($Display_IE, "forward") Case $Display_Home _IENavigate($Display_IE, $IE_Home, 0) Case $Resources_List MsgBox(0,"",GUICtrlRead( $Resources_List ) ) Case $Resources_Phones[0][0] _IENavigate($Display_IE, $Resources_Phones[0][1], 0) EndSwitch WEnd ;------------------------------------------------- ;------------- U D F s ;------------------------------------------------- Func LoadStructure( ) ;Reference loading $contents = DirGetContents( $DB_Path & "reference" ) For $i = 1 To $contents[0];Brands GUICtrlSetData( $Resources_List, $contents[$i] ) $Phones = DirGetContents( $DB_Path & "reference" & $contents[$i] & "" ) If $Phones[0] > 0 Then For $x=1 To $Phones[0];Phones $id = GetNewPhoneID( ) $Resources_Phones[$id][0] = GUICtrlCreateListViewItem( StringReplace( $Phones[$x], ";", "|" ), $Resources_ListView ) $Resources_Phones[$id][1] = $DB_Path & "reference" & $contents[$i] & "" & $Phones[$x] & "index.html" Next EndIf Next EndFunc Func DirGetContents( $dir ) Local $return[2] $return[0] = 0 $search = FileFindFirstFile( $dir & "*" ) If $search = -1 Then FileClose( $search ) Return $return EndIf While 1 Local $file = FileFindNextFile($search) If @error Then FileClose( $search ) Return $return EndIf $return[0] += 1 ReDim $return[$return[0] + 1] $return[$return[0]] = $file WEnd EndFunc Func GetNewPhoneID( ) For $i = 0 To $Max_Phones - 1 If $Resources_Phones[$i][0] = 0 Then Return $i Next MsgBox(42,"Error","Phone array size exceded, recompile with higher $Max_Phones") Exit EndFunc And the webpage I'm trying to load with it. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Untitled Document</title> <style type="text/css"> body { background-color: #333; } body,td,th { color: #06F; } </style> </head> <body link="#00FFFF" vlink="#00FFFF" alink="#0066FF"> <p><img src="../../../../html/images/banner.png" width="400" height="114" /></p> <p>Cheat Sheet</p><table width="400" height="91" border="1"> <tr> <td width="106" height="25">Data Editing</td> <td width="278"><strong>##3282#</strong></td> </tr> <tr> <td>Diag Mode</td> <td><strong>##3424#</strong></td> </tr> <tr> <td>Recovery Boot</td> <td>Vol. Down + Power</td> </tr> </table> </p> <p>Guides</p> <table width="400" height="89" border="1"> <tr> <td width="58" height="23"><strong>Subject</strong></td> <td width="252"><strong>Name</strong></td> <td width="81"><strong>Specification</strong></td> </tr> <tr> <td>Flashing</td> <td><a href="guidestest1.png" target="_new">HTC Evo To Boost Mobile Guide</a></td> <td>CDMA 2.7</td> </tr> </table> <p>&nbsp;</p> <p>Files</p> <p><iframe src="files" width="400" height="300"></iframe> </p> </body> </html> Any help would be appreciated. Also I'm attaching a link to the full project in case you want to see the buggy-ness in action. http://www.mediafire.com/?77cs9gfogsbe3io
  5. Thank you that was exactly what I was looking for.
  6. Would that grab the entire web page? Not just whats in the viewing area? Testing now.
  7. I need a way to take an accurate "snapshot" of a webpage. Scripts and dynamic elements do not matter, and neither does how its saved as long as I can load it again later in a web browser. Looked through documentation and searched but no answers. Have a feeling I'm being stupid. Fast help would be appreciated, have a deadline. Edit: Forgot to mention I need to save it locally and need to have it completely undependent on anything remote (In case the page is taken down at a later time)
  8. Hmmm, wonder if i could do somthing like this with the source engine....... actually... well... oh god, mind gasm.
  9. Ok one more quick question while I have your attention, now I need to remove a style. I was just subtracting it but following this new line of reasoning, which bit operation should I use? I looked through the list but none of them stuck out to me. Edit: Ok, XOR seems right after reading a bit more about it. Edit 2: in case anyone else has this problem: #include <windowsconstants.au3> If BitXOR( BitOR( $WS_CHILD, $WS_CAPTION ), $WS_CHILD ) = $WS_CAPTION Then MsgBox(0,"","")
  10. Haha, and there it is. Just adding them has always worked for me so I've always done it. I always wondered why using BitOR was called necessary in the helpfile. Knew I was missing some obvious point ;P. Anyways thanks a lot for your help guinness
  11. I tried this: BitAND( $WS_BORDER + $WS_CAPTION + $WS_CHILD, $WS_CAPTION ) But can't figure out what to do with the returned value. My first thought was to compare it to $WS_CAPTION but it doesn't match up. I feel like I'm missing some really obvious key point here. -.-;
  12. Ok so I've run into a sticky situation here, I won't bother explaining the over all picture (It would take far too long and most of it has nothing to do with the problem). The thing is, I have a style value (like one gotten from GUIGetStyle) but I need to see if a certain style is contained within it. I'm sure it's a simple matter of some sorts, probably something with one of the bit functions, but I just can't wrap my head around it. ;
  13. I'm not familiar with word.au3 (I don't use MS Office), but you seem to have several errors in your programming "grammar" (referred to as syntax). I would suggest going through Welcome To AutoIt 1-2-3, it can be found in the examples section of the forum, right at the top (It's a sticky).
  14. MsgBox(0,"RPG", "In a land somewhere people will do stuff.") For $i = 0 To 100 MsgBox(0,"RPG","Random Encounter") Next MsgBox(0,"RPG","Final Boss!") MsgBox(0,"RPG","The End") I loled.
  15. Well ok, I thought that was the problem but I was unable to find a 64bit version earlier. however I managed to hit the magical search string in google and came across a forum post with a link to another forum post with a custom modified version for 64bit, just tested and it seems to be working . The file can be found here: http://scintillanet.codeplex.com/workitem/9977?ProjectName=scintillanet click on Scintilla176_Custom.zip Its in the bin_64 folder.
×
×
  • Create New...