Olish

Hello ! I found some VBS scripts to forward my ports on my UPnP router. Here is the working VBS script named test.vbs : (from http://www.knoxscape.com/Upnp/NAT.htm) 'This program enables an IRC file transfer port 'And then puts up a prompt waiting for the user 'to be finished transferring files Set theNatter = CreateObject( "HNetCfg.NATUPnP") Dim mappingPorts Set mappingPorts = theNatter.StaticPortMappingCollection 'We add a new port saying that externally accept from port 1024 'route to internal port 1024 on computer with IP 192.168.1.101 'Enabling the forward, and giving a name of the forward to be IRC mappingPorts.Add 1024, "TCP", 1024, "192.168.1.101", TRUE, "VBS Test" Here is the not working AutoIt script : $oRouter = ObjCreate("HNetCfg.NATUPnP") $oPortList = $oRouter.StaticPortMappingCollection $oPortList.Add(9123, "TCP", 9123, "192.168.1.101", TRUE, "AutoItCOM") It stops with this error : >Running:(3.2.12.0):C:\Program Files\AutoIt3\autoit3.exe "D:\Development\NWGLauncher - AU3\COMUPnP2.au3" D:\Development\NWGLauncher - AU3\COMUPnP2.au3 (5) : ==> The requested action with this object has failed.: $oPortList.Add(9123, "TCP", 9123, "192.168.1.101", TRUE, "AutoItCOM") $oPortList.Add(9123, "TCP", 9123, "192.168.1.101", TRUE, "AutoItCOM")^ ERROR ->15:28:21 AutoIT3.exe ended.rc:1 >Exit code: 1 Time: 1.565 Am I right in my way to create the object, then with the methods ? "HNetCfg.NATUPnP" is a COM object isn't it ? Thanks in advance for your help. Regards, Olish.

Hi everybody ! Did I post in the wrong forum ? Nobody can tell if it is possible ? May I try in the support forum ? Thanks a lot !

Hi geeks ! I searched everywhere for a flash desktop application maker like mProjector, mdm Zinc, or IceProjector but no free software like these. So I'm asking you : is it possible to make this kind of application with AutoIt ? (I love AutoIt ! ) Thank you a lot !

$iFTPIdentifier = _FTPOpen("myftp") $lastError = DllCall("kernel32.dll", "int", "GetLastError") MsgBox(0,"",$lastError[0]) This code returns error number 0... :"> MSDN means that the operation completed successfully... What's the matter ???

Hi everybody, I found FTP UDF in the "Example Scripts" forum and I tested it. Here is my code : ; INCLUSIONS #include "_ftp.au3" ; DEFINITION DES VARIABLES $sFTPServer = "****" $sFTPUser = "****" $sFTPPassword = "****" $iFTPPort = 21 $sFTPFolder = "/virtualsurveyor" ; CONNEXION AU SERVEUR FTP $iFTPIdentifier = _FTPOpen("myftp") If @error = -1 Then MsgBox(16, "Virtual Surveyor", "Virtual Surveyor n'a pas pu démarrer la surveillance car il lui est impossible de se connecter au serveur " & $sFTPServer) Exit EndIf But this does not work. The _FTPOpen() function sets @error to -1. What can I do please ? I don't understand why this doesn't work.... Olivier, form France.

Thank you a lot ! It's so nice !

Hi everybody ! I'm searching for playing a SWF file in a flash object in an AutoIt GUI. Here is the code... It doesn't run ! Arrggg... #include <GUIConstants.au3> ; == GUI generated with Koda == $Form1 = GUICreate("AForm1", 622, 441, 192, 125) $AObj1 = ObjCreate("ShockwaveFlash.ShockwaveFlash.1") $AObj1_ctrl = GUICtrlCreateObj($AObj1, 0, 0, 192, 192) GUISetState(@SW_SHOW) $AObj1.Src = "C:\mydir\source.swf" While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case Else ;;;;;;; EndSelect WEnd Exit Thank you for helping me !

Yes, I know SrvAny. The problem is that I want to develop a free software. And there is a problem for the MS licence... However, RunExeSvc is GPL !

Maybe can I simply add in win.ini : [windows] run=myfile.exe to execute my program without logging. What do you think about it ?

Sorry, I just added the test.exe in the zip file... :s You must run RunExeSvcAdmin.exe and click New to have the GUI attached.

Here is the screen capture of RunExeSvcAdmin.exe and the test.exe... test.zip

Hi everybody ? Fine ? I'm trying to execute an EXE as a service with RunExeSvc. And I tried on my PC and on a newly installed PC. But I have this message : Error 1073 : The specified service already exists Do someone already had this problem please ? Thank you !

A rootkit in my machine ?

Is SrvAny free to use in free programs ? I just tried RunExeSvc and the Admin Tool tells me : "Error 1073 : The specified service is already running" but it is not running.

I've found this source in VBScript. I'll try to translate it into AutoItScript... This needs the Eztw32.dll DLL. 1. Declare Function TWAIN_AcquireToClipboard Lib "EZTW32.DLL" (ByVal hwndApp&, ByVal wPixTypes&) As Integer 2. Declare Function TWAIN_SetHideUI Lib "Eztw32.dll" Alias "TWAIN_SetHideUI" (ByVal ui As Long) As Long 3. Declare Function TWAIN_OpenDefaultSource Lib "Eztw32.DLL" Alias "TWAIN_OpenDefaultSource" (ByVal hwnd As Long) As Integer 4. Declare Function TWAIN_SetCurrentResolution Lib "Eztw32.dll" Alias "TWAIN_SetCurrentResolution" (ByVal neufdix As Double) As Long 5. Declare Function TWAIN_SetCurrentPixelType Lib "Eztw32.dll" Alias "TWAIN_SetCurrentPixelType" (ByVal deux As Long) As Long 6. Declare Function TWAIN_LoadSourceManager Lib "Eztw32.dll" Alias "TWAIN_LoadSourceManager" () As Long 7. Declare Function TWAIN_SetCurrentUnits Lib "Eztw32.dll" Alias "TWAIN_SetCurrentUnits" (ByVal zero As Long) As Long 8. Declare Function TWAIN_SetBitDepth Lib "Eztw32.dll" Alias "TWAIN_SetBitDepth" (ByVal zero As Long) As Long 9. Declare Function TWAIN_OpenSourceManager Lib "EZTW32.DLL" Alias "TWAIN_OpenSourceManager" (ByVal hwnd As Long) As Long 10. Declare Function TWAIN_CloseSource Lib "EZTW32.DLL" Alias "TWAIN_CloseSource" () As Long 11. Declare Function TWAIN_SelectImageSource Lib "EZTW32.DLL" Alias "TWAIN_SelectImageSource" (ByVal hwnd As Long) As Integer 12. Declare Function TWAIN_State Lib "EZTW32.DLL" Alias "TWAIN_State" () As Integer 13. 14. 15. FONCTION 16. 17. Dim l_Retour As Long 18. Dim s_cheminsauv As String 19. Dim i As Integer 20. 21. Try 22. 23. TWAIN_CloseSource() 24. TWAIN_LoadSourceManager() 25. TWAIN_OpenSourceManager(frm.Handle.ToInt32) 26. iRetour = TWAIN_OpenDefaultSource(frm.Handle.ToInt32) 27. If iRetour = 0 Then 28. iRetour = TWAIN_SelectImageSource(frm.Handle.ToInt32) 29. If iRetour = 1 Then 30. iRetour = TWAIN_OpenDefaultSource(frm.Handle.ToInt32) 31. End If 32. End If 33. 34. If iRetour = 0 Then 35. Exit Function 36. End If 37. 38. If TWAIN_State() < 4 Then 39. MsgBox("Impossible de paramêtrer le scanner") 40. Exit Function 41. Else 42. 'parametres du scanner 43. TWAIN_SetCurrentUnits(0) 'DPI 44. TWAIN_SetCurrentResolution(150) 'en points par pouces 45. TWAIN_SetCurrentPixelType(2) ' Scan format 0 = B&W, 1 Grey, 2 RGB 46. TWAIN_SetBitDepth(8) ' Bit Depth 1, 2, 4, 8 but depends on Pixeltype 47. 48. TWAIN_SetHideUI(True) 49. End If 50. 51. 52. 53. 'scan du document 54. iRetour = TWAIN_AcquireToClipboard(frm.Handle.ToInt32, 32) 55. 56. If iRetour = 0 Then 57. MsgBox("Le scan du document a échoué.", MsgBoxStyle.Critical, "Scanner") 58. Exit Function 59. End If 60. 61. TWAIN_CloseSource() 62. Catch ex As Exception 63. Exit Function 64. End Try 65. 66. Try 67. 68. pbImage.Image = System.Windows.Forms.Clipboard.GetDataObject.GetData(System.Windows.Forms.DataFormats.Bitmap) 'on la met dans une picture box 69. 70. g_rcdCandidat.Seek(l_iNoCandidat) 71. s_cheminsauv = "c:\toto.jpg" 72. 73. i = 1 74. If System.IO.File.Exists(s_cheminsauv) = True Then 75. s_cheminsauv = Left(s_cheminsauv, s_cheminsauv.Length - 4) 76. While System.IO.File.Exists(s_cheminsauv & i & ".jpg") = True 77. i = i + 1 78. End While 79. s_cheminsauv &= " " 80. s_cheminsauv &= i 81. s_cheminsauv &= ".jpg" 82. End If 83. 84. pbImage.Image.Save(s_cheminsauv, System.Drawing.Imaging.ImageFormat.Jpeg) 85. 86. Catch ex As Exception 87. MsgBox("Le document a bien été scanné," & Chr(13) & "mais une erreur s'est produite lors de la sauvegarde dans le dossier du candidat.", MsgBoxStyle.Critical, "Scanner") 88. End Try 89. 90. FIN DE LA FONCTION

Hi everybody ! I'm searching a DLL that will allow me to scan a document. Does someone know a free DLL by the way please ? Thank you a lot !

Ok I understand now. Thank you a lot for answering me !

@ ptrex Hi ! Is it possible to retrieve the password of a user with $objUser like this by example : $objUser.Password This does not work but is it possible ? Thanks !

Hello everybody ! I just read the PSTOOLS licence and I'd like to know if I can use freely PSEXEC in my free software... I thank you a lot for your help because I'm french and I hope I understand correctlyy the terms of licence. Here is the licence :

I found what I searched. It is a UDF in the services_net.au3 file in this post. Thank you again for helping me !

Thank you. It isn't this topic. The UDF could install service on a remote computer, start, stop, restart, an uninstall services... I'm still searching...

Hi everybody ! I'm searching for an UDF I seen on AutoIt Forums. This UDF contains functions that allow to install, delete, start, stop services on a remote machine. I performed few searches without finding. Does someone havve a link to this UDF please ? Thank you a lot for your help !

Hello everybody ! I'm searching for the percentage of occupation of the processor in these properties. Could you help me, I'm french and I don't understand all properties... Thank you a lot ! Properties are in the image in attachment.

I tried with a REG file of the HKLM huge, this file is about 57000 ko. And it doesn't works. Does AutoIt can open a file that has this size ?

I'll try this code... Why this limitation ?