Hi: The Program works fine and fetch one record at a
time and display in the browser. Is it possible that i
pass a list of socials into it and then i get data in
a textfile with three information Name, Birth and
Death thru VB6 code?
Thanks.
Private Sub Form_Load()
Dim social As String, WShell As Object, vPath As
String
social = "260-54-6689"
Set WShell = CreateObject("wscript.shell")
vPath = WShell.SpecialFolders("MyDocuments") & ""
vFile = vPath & "Deceased-Information-" & Format$(Now,
"yyyymmdd-hhmmss") & ".html"
Debug.Print vFile
Open vFile For Output As #1
Print #1,
PostURL("http://ssdi.rootsweb.com/cgi-bin/ssdi.cgi",
"ssn=" & social)
Close #1
Set WShell = Nothing
ShellExecute 0, vbNullString, Chr(34) & vFile &
Chr(34), vbNullString, vbNullString, vbMaximizedFocus
Unload Me
End Sub
MODULE
Function PostURL(sURL, aPostData)
sURL = CStr(sURL)
Dim oXml
Set oXml = CreateObject("Microsoft.XMLHTTP";)
oXml.Open "POST", sURL, False
oXml.setRequestHeader "Content-Type", "application/
x-www-form- urlencoded"
oXml.Send aPostData
PostURL = oXml.responseText
Set oXml = Nothing
End Function
Option Explicit
Public Declare Function ShellExecute Lib "shell32.dll"
_
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal
lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As
String, _
ByVal lpDirectory As String, ByVal nShowCmd As
Long) As Lon
__________________________________________________________
Expecting? Get great news right away with email Auto-Check.
Try the Yahoo! Mail Beta.
http://advision.webevents.yahoo.com/mailbeta/newmail_tools.html
.
