Code: Select all
<SL:root xmlns:SL="Smartlaunch"> 
<Command Name="SmartlaunchVersion" /> 
</SL:root>any help would be apreciated since i'm desperate with thisone
Moderators: FourthWorld, heatherlaine, Klaus, kevinmiller, robinmiller
Code: Select all
<SL:root xmlns:SL="Smartlaunch"> 
<Command Name="SmartlaunchVersion" /> 
</SL:root>Code: Select all
put "<SL:root xmlns:SL=""e&"Smartlaunch""e&">" into tQuery
put "<Command Name=""e&"SmartlaunchVersion""e&"/>" after tQuery
put "</SL:root>" after tQueryCode: Select all
 libURLSetCustomHTTPHeadersCode: Select all
   set the httpheaders to xxxxCode: Select all
   libURLSetCustomHTTPHeaders field "Header"
   post tQuery to url "http://vsrvx3:18980/adxwsvc/services/CAdxSubProgramXml"Code: Select all
Accept-Encoding: gzip,deflate
Content-Type: text/xml;charset=UTF-8
Content-Length: 1871
Host: vsrvx3:18980
Connection: Keep-Alive
User-Agent: Apache-HttpClient/4.1.1 (java 1.5)Code: Select all
Accept: application/json, text/javascript, */*; q=0.01
Content-Type: application/json; charset=UTF-8
Cookie: session_id=69b6282312f2fe1f88cd403ed075db8f52c4ea57
Connection: keep-alive
Cache-Control: no-cache
Pragma: no-cacheCode: Select all
on mouseUp
open socket to theSocket -- theSocket = my socket
write XMLCommand to socket theSocket -- XMLCommand = the command var
read from socket theSocket until EOF
put it
end mouseUpCode: Select all
set the HTTPProxy to "127.0.0.1:8888"Code: Select all
on mouseUp
   disable me
    
   put "192.9.202.135:8192" into tSocket  --- change IP and port number
   
   open socket to tSocket with message connected
   If the Result <> "" then
      answer warning "Error : "&the Result
      enable me
      exit to top
   end if
   
end mouseUp
on connected theSocket
   write fld "xml"& return to socket theSocket  --- put into a field your whole XML command, beware of the last char : return or something else ? What the server is waiting for ?
   wait 5 ticks
   read from socket theSocket  for 4 chars with message "login1"  ---it should read the first 4 chars of the server's answer and go to "login1" as a callback message.
end connected
on login1 theIP tMessage
   close socket theIP
   answer   tMessage --- display the 4 characters received (if any)
   enable me
end login1
on socketError theID, tDetail
   answer warning "ERROR "&tDetail
   close socket theID
end socketError