home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 January / PCWELT_1_2006.ISO / pcwsoft / autoit-v3-setup.exe / Include / Inet.au3 < prev    next >
Encoding:
Text File  |  2005-01-11  |  3.5 KB  |  89 lines
  1. #include-once
  2.  
  3. ; ------------------------------------------------------------------------------
  4. ;
  5. ; AutoIt Version: 3.0
  6. ; Language:       English
  7. ; Description:    Functions that assist with Intenet.
  8. ;
  9. ; ------------------------------------------------------------------------------
  10.  
  11.  
  12. ;===============================================================================
  13. ;
  14. ; Function Name:    _GetIP()
  15. ; Description:      Get public IP address of a network/computer.
  16. ; Parameter(s):     None
  17. ; Requirement(s):   Internet access.
  18. ; Return Value(s):  On Success - Returns the public IP Address
  19. ;                   On Failure - -1  and sets @ERROR = 1
  20. ; Author(s):        Larry/Ezzetabi & Jarvis Stubblefield 
  21. ;
  22. ;===============================================================================
  23.  
  24. Func _GetIP()
  25.     Local $ip
  26.     If InetGet("http://www.whatismyip.com", @TempDir & "\~ip.tmp") Then
  27.         $ip = FileRead(@TempDir & "\~ip.tmp", FileGetSize(@TempDir & "\~ip.tmp"))
  28.         FileDelete(@TempDir & "\~ip.tmp")
  29.         $ip = StringTrimLeft($ip, StringInStr($ip, "<TITLE>Your ip is ") + 17)
  30.         $ip = StringLeft($ip, StringInStr($ip, " WhatIsMyIP.com</TITLE>") - 1)      
  31.         Return $ip
  32.     Else
  33.         SetError(1)
  34.         Return -1
  35.     EndIf
  36. EndFunc ;Function End >> _GetIP()
  37.  
  38. ;===============================================================================
  39. ;
  40. ; Function Name:    _INetExplorerCapable()
  41. ; Description:      Convert a string to IE capable line
  42. ; Parameter(s):     $s_IEString - String to convert to a capable IExplorer line
  43. ; Requirement(s):   None
  44. ; Return Value(s):  On Success - Returns the converted string
  45. ;                   On Failure - Blank String and @error = 1
  46. ; Author(s):        Wes Wolfe-Wolvereness <Weswolf@aol.com>
  47. ;
  48. ;===============================================================================
  49. ;
  50. Func _INetExplorerCapable($s_IEString)
  51.     If StringLen($s_IEString) <= 0 Then
  52.         Return ''
  53.       SetError(1)
  54.     Else
  55.         Local $s_IEReturn
  56.         Local $i_IECount
  57.         Local $n_IEChar
  58.         For $i_IECount = 1 To StringLen($s_IEString)
  59.             $n_IEChar = '0x' & Hex(Asc(StringMid($s_IEString, $i_IECount, 1)), 2)
  60.             If $n_IEChar < 0x21 Or $n_IEChar = 0x25 Or $n_IEChar = 0x2f Or $n_IEChar > 0x7f Then
  61.                 $s_IEReturn = $s_IEReturn & '%' & StringRight($n_IEChar, 2)
  62.             Else
  63.                 $s_IEReturn = $s_IEReturn & Chr($n_IEChar)
  64.             EndIf
  65.         Next
  66.         Return $s_IEReturn
  67.     EndIf
  68. EndFunc   ;==>_INetExplorerCapable
  69.  
  70. ;===============================================================================
  71. ;
  72. ; Function Name:    _INetMail()
  73. ; Description:      Open default mail client with given Address/Subject/Body
  74. ; Parameter(s):     $s_MailTo    - Address for E-Mail 
  75. ;                   $s_Subject   - Subject <Weswolf@aol.com>of E-Mail
  76. ;                   $s_MailBody  - Body of E-Mail
  77. ; Requirement(s):   _INetExplorerCapable
  78. ; Return Value(s):  On Success - Process ID of e-mail client
  79. ;                   On Failure - If Opt('RunErrorsFatal', 1)
  80. ;                                   -> Crash
  81. ;                                Else Opt('RunErrorsFatal', 0)
  82. ;                                   -> Blank String and @error = 1
  83. ; Author(s):        Wes Wolfe-Wolvereness <Weswolf@aol.com>
  84. ;
  85. ;===============================================================================
  86. ;
  87. Func _INetMail($s_MailTo, $s_MailSubject, $s_MailBody)
  88.     Return Run(StringReplace(RegRead('HKCR\mailto\shell\open\command', ''), '%1', _INetExplorerCapable ('mailto:' & $s_MailTo & '?subject=' & $s_MailSubject & '&body=' & $s_MailBody))) = 0
  89. EndFunc   ;==>_INetMail