Hej! Hej, det finns ett kommando som heter sendkeys. Lägg till en internet-kontroll och sätt sökvägen till den aktuella sidan. Använd sedan sendkeys-kommandot för att manipulera tangenttryckningar. Ett lite fräckare sätt är att använd http objektet i Microsoft XML 3.0 biblioteket. jag provade det där, och fick det o funka.. men jag förstår inte riktigt vad man ska ha det till...? Man kan använda till jätte mycket. Exempel: Kanske detta skall vara något som passar.Lägga data i formulär(internet)
Jag behöver lite hjälp med följande probem:
Jag behöver, från min applikation, ansluta till en hemsida där det finns ett formulär med textfälten "namn" och "email" i dessa vill jag att mitt program fyller i datan och skickar. Sidan behöver aldrig visas om det underlättar...
Mvh RobinSv: Lägga data i formulär(internet)
Hälsningar
/PelleSv: Lägga data i formulär(internet)
Här kommer ett lite exempel:
* Skapa ett nytt standard EXE projekt
* Lägg till referenser till Microsoft XML 3.0(Om du inte hittar den i referenser. Ladda ned den från microsoft)
* Lägg till en CommandButton till Form1
* Klistra in följande kod i Form1:
Option Explicit
Private Sub Command1_Click()
Dim http As ServerXMLHTTP
Set http = New ServerXMLHTTP
http.open "POST", "http://127.0.0.1/test.asp", False
http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
http.send URLEncode("Property1") & "=" & URLEncode("Value1") & "&" & _
URLEncode("Property2") & "=" & URLEncode("Value2") & "&" & _
URLEncode("Property3") & "=" & URLEncode("Value3") & "&" & _
URLEncode("Property4") & "=" & URLEncode("Value4") & "&" & _
URLEncode("Property5") & "=" & URLEncode("Value5")
Debug.Print http.responseText
End Sub
Public Function URLEncode(Value As String) As String
Dim Index As Long
Dim lAsc As Long
Dim sChar As String
Dim sTemp As String
Dim sResult As String
For Index = 1 To Len(Value)
sChar = Mid(Value, Index, 1)
Select Case sChar
Case " "
sResult = sResult + "+"
Case "a" To "z", "A" To "Z", "0" To "9"
sResult = sResult + sChar
Case Else
lAsc = Asc(sChar)
Select Case lAsc
Case 0 To 255 'non DBCs character
sResult = sResult + "%" + Right("00" + Hex(Asc(sChar)), 2)
Case Else 'DBCs character
sTemp = Right("0000" + Hex(lAsc), 4)
sResult = sResult + "%" + Left(sTemp, 2) + "%" + Right(sTemp, 2)
End Select
End Select
Next
URLEncode = sResult
End Function
* Sätt upp test.asp och ändra url vid behov
<%@ Language=VBScript %>
<HTML>
<HEAD>
</HEAD>
<BODY>
<B>Query String<B><BR>
<P>
<%
Dim vKey
Dim vTemp
For each vKey in Request.QueryString
For each vTemp in Request.QueryString(vKey)
Response.Write vKey + "=" + vTemp + "<BR>" + vbCrLf
Next
Next
%>
</P>
<B>Form String<B><BR>
<P>
<%
For each vKey in Request.Form
For each vTemp in Request.Form(vKey)
Response.Write vKey + "=" + vTemp + "<BR>" + vbCrLf
Next
Next
%>
</P>
</BODY>
</HTML>Sv: Lägga data i formulär(internet)
Sv: Lägga data i formulär(internet)
* Distruberad applikation. Kan skicka typ et OrderID som parameter och få tillbaks resultatet som en tabseparerad text fil eller xml.
* Kan använda det för att registrera applikationen.
osv...
Det är på ett liknande sätt .NET objekt distruberas. Fast där använder man XML över SOAP.Sv: Lägga data i formulär(internet)
www.planet-source-code.com/upload/ftp/AutoSetHTM17961452001.zip
/Wolf