[VB] html formulier versturen uit een prog ?

[Verwijderd]

ik ben een weekje bezig met het proggen van wat software voor mijn LCD schermpje(zie sig. ).

ik heb het meeste gewerkt aan een programma dat wat informatie over MSN op mijn scherm zet en toen kreeg ik opeens het idee om een optie te proggen die "nieuwe berichten" verstuurd naar mijn GSM als mijn status op AWAY staat.

het probleem is dat niet direct info hierover vind op het net en me eigenlijk afvraag of het wel echt haalbaar is ?

wat ik al heb is een HTML <form> waarmee je via een brower SMS'en kan sturen. De info uit MSN halen over de nieuwe berichten is ook niet echt moeilijk

maar kan ik deze combineren ?

[KnEuTeR]

http://www.blabla.com/verzend.php?teks=blabla&titel=blablabla

zoiets misschien..??

[Verwijderd]

<FORM action=http://sms.proximus.be/WMS/ProxiText?smsaction=send&lan=nl&laf=oldstyle method=post name=AG ENCTYPE="multipart/form-data">
<INPUT name=S45_ size=3 type=hidden value=nl>
<INPUT name=S44_ size=3 type=hidden value=0.8647790115330359>
<INPUT name=AgEvtSrc type=hidden>
<INPUT name=AgStateCode type=hidden value=2>
<div align="center">
<center>
<table border="0" width="343" height="100" style="border: 2 solid #808080">
<tr>
<TD vAlign=top width=327 height="1" colspan="2">
<p align="center"><font color="#808080" size="3" face="Verdana"><b>.: Proximus - SMS :.</b></font>
</TD>
</tr>
<tr>
<TD vAlign=top width=225 height="0">
<TEXTAREA cols=29 rows=7 name=smsmessage style="background-color: #333333; color: #C0C0C0; font-family: Verdana; font-size: 10 pt; border-style: solid; border-color: #808080"></TEXTAREA>
</TD>
<TD vAlign=top width=102 height="0">
<p align="center"><font size="4"><INPUT name=prefix size=7 value="0473" style="font-family: Verdana; font-size: 10 pt; background-color: #333333; color: #999999; text-align: center; border-style: solid; border-color: #808080"><br>
<br>
<INPUT name=suffix size=7 value="814783" style="font-family: Verdana; font-size: 10 pt; background-color: #333333; color: #999999; text-align: center; border-style: solid; border-color: #808080"><br>
</font><br>
<INPUT border=0 cache name=I6 src="images/send.jpg" type=image width="100" height="30">
</TD>
</tr>
</table>
</center>
</div>
</FORM>

dit is dus het formulier, ik moet dus nog een hoop velden meesturen, hidden field enzo ook ...

[KnEuTeR]

doe het anders net zoals MSN het doet bij het "klik hier voor het ophalen van de e-mail", via een temp HTML file op de harde schijf...?

[KnEuTeR]

wat een rommeltje die source, soms wel en soms geen "" bij getallen, grote en kleine letters, en de form action niet tussen aanhalingstekens..!!
en heel veel namen niet tussen aanhalingstekens

[Verwijderd]

form is geriped van www.proximus.be dus don't blame me, ik verwijderde alleen snel wat overbodig was zal nog eens wat verder proberen te zoeken op die manier met temp files dan maar

[Verwijderd]

Zo te zien is de method die je moet gebruiken post, dus dan zal je met een winsock control moeten werken. Je zou dan namelijk een POST kunnen sturen, en dan kan je extra headers versturen waarin de data staat van je form. Hoe dat precies werkt (wat de HTTP commando's zijn bedoel ik) weet ik zo niet, maar daar is vast wel ergens iets over te vinden op 't net.

[Sponge]

Als je ff snel een winsock control op je form zet, en die op een paart laat wachten (bijv 81), TCP/IP, en je simpel elke verbinding accepteerd, en je zet het volgende in de ReceiveData events (ongeveer)

'//P-Code:
Dim strData as String
Call Winsock.GetData(strData)

Debug.Print strData
'\\

Nu maak je snel ff een pagina op je HD die een form verstuurd, en zet je de proxy van je browser naar 127.0.0.1:poortvanwinsock

Nu zie je alle headers, dus ook hoe je moet posten...

Voor een commercieel programma heb ik ooit eens het volgende gebruikt (lichtelijk bijgewerkt):

code:

Private Sub FetchHeader(tPage As String)
    Dim strContent As String
    With sckPost
     '//Some basic HTML header stuff. Most things are required!
     '//When modifying, never forget to add a carriage return line feed (VBCRLF)
     .SendData "POST " & tPage & " HTTP/1.1" & vbCrLf
     .SendData "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, */*" & vbCrLf
     .SendData "Accept -Language: nl" & vbCrLf
     .SendData "Content-Type: application/x-www-form-urlencoded" & vbCrLf
     .SendData "Accept -Encoding: gzip , deflate" & vbCrLf
     .SendData "User-Agent: Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0; T312461)" & vbCrLf
     .SendData "Host: website.com" & vbCrLf
     
     '//Create the Form data using the array and the current item of the loop (see cmdSubmit_Click)
     '//When posting the form through a webbrowser, the "textbox" or "inputbox" names are used to send data
     '//So in your example page those where "username", "listid", "name", and "email" such a name always has a "&" in front (except for the first one
     strContent = "TEXTFIELD=" & strUserName & "&TEXTFIELD=" & strListID & "&name=" & Addresses(lngCurrentItem).strName & "&email=" & Addresses(lngCurrentItem).strEmail
     
     '//Webserver requires the length of this string, so get the length of it and add it
     .SendData "Content-Length: " & Len(strContent) & vbCrLf
     .SendData "Proxy -Connection: Keep-Alive" & vbCrLf
     
     '//Important. Form data needs *two* vbCRLF's in front!
     .SendData "Pragma: no-cache" & vbCrLf & vbCrLf
     
     '//Sent formdata (VBCRLF has already been added)
     .SendData strContent & vbCrLf
    End With

End Sub

/41.6C.6D.61.72