Jump to content

pierrotm777

Active Members
  • Posts

    89
  • Joined

  • Last visited

About pierrotm777

  • Birthday 06/06/1959

Profile Information

  • Location
    Bordeaux, France

pierrotm777's Achievements

Wayfarer

Wayfarer (2/7)

0

Reputation

  1. Hello, Tahnks for your UDF. I try to download it but i can't 5server is down ?) Thanks
  2. I have a windows error with my xp sp3 !
  3. It's a great script . Thanks for this share
  4. I have an issue with a Gui and a html embedded if the url use the html5 code . I test on Vista 32bits and IE9! #include <GUIConstantsEx.au3> #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_outfile=ArtOfTouch.exe #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Res_Fileversion=0.1.0.0 #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <IE.au3> #include <WindowsConstants.au3> #include <WindowsConstants.au3> #include <misc.au3> _Singleton(@ScriptName) $WindowsName = "ArtOfTouch" $url = "https://www.artoftouch.com/en-us/#/create";lecture de la page html _IEErrorHandlerRegister() $ie = _IECreateEmbedded() ; Create Reciver window $hwmd_Reciver = GUICreate($WindowsName, 800, 500, 0, 0);,$WS_OVERLAPPEDWINDOW) $ieobject = GUICtrlCreateObj($ie, 0, 0, 800, 500) _IENavigate($ie, $url, 0) ;msgbox(0,"",@error) GUISetState(@SW_SHOW) While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then Exit Sleep(100) Wend Thanks for all help !
  5. Where can i found the GlPluginUtils.au3 UDF please ?
  6. I don't understand how to use the game , I am sorry ?
  7. I have some errors with autoit 3.3.3.1 (GDIP.au3 not found !) Do you have a solution please ?
  8. When i try to compile NetSendPM.au3 i have these errors ! C:\tmp\AutoIt\NetSend\Include\GDI_Stream.au3(13,10) : ERROR: can't open include file <GDIP.au3> #include <GDIP.au3> ~~~~~~~~~^ C:\tmp\AutoIt\NetSend\Include\GDI_Stream.au3(200,73) : ERROR: _GDIPlus_ImageSaveToStream(): undefined function. _GDIPlus_ImageSaveToStream($hBitmap, $pStream, $pEncoderCLSID, $pParams) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ C:\tmp\AutoIt\NetSend\Include\GDI_Stream.au3(241,56) : ERROR: _GDIPlus_BitmapCreateFromStream(): undefined function. $hBitmap[0] = _GDIPlus_BitmapCreateFromStream($hStream) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ C:\tmp\AutoIt\NetSend\NetSendPM.au3 - 3 error(s), 0 warning(s) An idea ?
  9. A cool option would be to rip also to .mp3
  10. Wouuahhh, It's a wonderfull job ! I have also an issue: D:\Program Files\Ride Runner\Skins\Carwings_Dynamic_pm_new\Scripts\Scrabble\ScrabbleIt.au3 (705) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.: $aP1Tiles[$i] = $aNTiles[$i] ^ ERROR
  11. Gmail use a SSL mode , so this UDF don't run with
  12. How can i modify this exemple found with the first _POP3.au3 UDF ? #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <TreeViewConstants.au3> #include <WindowsConstants.au3> #include <GuiListView.au3> #include <array.au3> #include <_pop3.au3> #include <Constants.au3> ;#NoTrayIcon Opt("TrayMenuMode",1) ; Default tray menu items (Script Paused/Exit) will not be shown. $settingsitem = TrayCreateMenu("Settings") $displayitem = TrayCreateItem("Display", $settingsitem) $printeritem = TrayCreateItem("Printer", $settingsitem) TrayCreateItem("") $aboutitem = TrayCreateItem("About") TrayCreateItem("") $exititem = TrayCreateItem("Exit") TraySetState() TraySetClick(16) Global $MyPopServer = "pop.free.fr" Global $MyLogin = "username" ; login name only Global $MyPasswd = "password" #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <ListViewConstants.au3> #include <TreeViewConstants.au3> #include <WindowsConstants.au3> $Form1_1 = GUICreate("Inem Mail", 500, 480) $sLVhdr = "ID|Date|From|Subject" $aLVhdr = StringSplit($sLVhdr, "|") $ListView1 = GUICtrlCreateListView($sLVhdr, 100, 34, 390, 169) GUICtrlSendMsg(-1, 0x101E, 0, 48) GUICtrlSendMsg(-1, 0x101E, 1, 100) GUICtrlSendMsg(-1, 0x101E, 2, 100) GUICtrlSendMsg(-1, 0x101E, 3, 140) $Edit1 = GUICtrlCreateEdit("", 10, 220, 480, 249) $TreeView1 = GUICtrlCreateTreeView(5, 34, 86, 169) $TreeView1_0 = GUICtrlCreateTreeViewItem("INBOX", $TreeView1) $TreeView1_1 = GUICtrlCreateTreeViewItem("Unread", $TreeView1_0) $TreeView1_2 = GUICtrlCreateTreeViewItem("Read", $TreeView1_0) $TreeView1_3 = GUICtrlCreateTreeViewItem("All Mail", $TreeView1_0) $TreeView1_4 = GUICtrlCreateTreeViewItem("Send Mail", $TreeView1) $TreeView1_5 = GUICtrlCreateTreeViewItem("Drafts", $TreeView1) $TreeView1_6 = GUICtrlCreateTreeViewItem("Spam", $TreeView1) $Button1 = GUICtrlCreateButton("Compose", 4, 4, 65, 21, 0) $Button2 = GUICtrlCreateButton("Send / Recieve", 72, 4, 85, 21, 0) GUISetState(@SW_SHOW) GUIRegisterMsg($WM_NOTIFY, "WM_Notify_Events") While 1 $nMsg = GUIGetMsg() Select Case $nMsg = $GUI_EVENT_CLOSE Exit Case $nMsg = $Button2 checkmail() EndSelect WEnd Func Click() _pop3Connect ($MyLogin, $MyPasswd,$MyPopServer) $iRow = _GUICtrlListView_GetNextItem($ListView1) ; current selected If $iRow = -1 Then Return $aMsgNum = StringSplit(_GUICtrlListView_GetItemText($ListView1, $iRow), " ") If $aMsgNum[0] = 1 Then Return GUICtrlSetData($Edit1, _Pop3Retr($aMsgNum[1])) _pop3Disconnect() EndFunc ;==>Click Func WM_Notify_Events($hWndGUI, $MsgID, $wParam, $lParam) Local $tagNMHDR, $iEvent If $wParam = $ListView1 Then $tagNMHDR = DllStructCreate("int;int;int", $lParam) $iEvent = DllStructGetData($tagNMHDR, 3) ;If $iEvent = $NM_DBLCLK Then Click() If $iEvent = $NM_CLICK Then Click() EndIf EndFunc ;==>WM_Notify_Events Func checkmail() _pop3Connect($MyLogin, $MyPasswd,$MyPopServer) If @error Then MsgBox(262144 + 16, "", "Unable to connect to mail server @error=" & @error) Exit EndIf $aLoopNum = _Pop3Stat() $iCurrent = 0 While $iCurrent < $aLoopNum[1] $iCurrent += 1 $sMsgHdr = _Pop3Top($iCurrent, 1) $stat = _Pop3List($iCurrent) $sItem = $stat[1] & "|" For $i = 2 To $aLVhdr[0] $aItem = StringRegExp($sMsgHdr, "(" & $aLVhdr[$i] & " :) (.*[\r\n])", 3) If @error = 0 Then If UBound($aItem) = 2 Then $sItem &= StringStripWS($aItem[1], 3) & "|" EndIf EndIf ;StringTrimRight($sItem, 1) Next GUICtrlCreateListViewItem($sItem, $ListView1) WEnd _pop3Disconnect() EndFunc ;==>checkmail This exemple don't run with the new UDF ! Big thanks
  13. Very nice
  14. Sorry, The message is : Problem retreiving Interface Table. Exiting Program
×
×
  • Create New...