---

Er der nogle der ved hvordan man kan sende en betalings fri SMS fra
Microsoft Viaual Basic 6.0

Jeg har en halv kode, mangler resten...

Jeg kan ikke få koden til at virke den mangler en Ucp

'sms besked over telefonen
Dim Temp as String, Connectsvar as String, Timeout as Single
Conn1.portopen = True
Comm1.Output = "43625250" & Chr$(13)
Timeout = Timer + 30
Do
Temp = ""
If Comm1.InBufferCount Then Temp = Comm1.Input
Connectsvar = Connectsvar + Temp
Loop Until InStr(Connectsvar, "CONNECT") Or Timer > Timeout
If InStr(Connectsvar, "CONNECT") Then
Comm1.Output = Ucp("mobilnummer", "besked")
Comm1.PortOpen = False
Else
Comm1.PortOpen = False
End if