Click here to Skip to main content
15,915,611 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: Need A Little Advice Pin
Christian Graus18-May-05 16:25
protectorChristian Graus18-May-05 16:25 
Generalhi!!how to disable right in browserwindow..urgent.. Pin
shekkk18-May-05 11:01
shekkk18-May-05 11:01 
Generalreading crystal connection from app config Pin
Joey Picerno18-May-05 7:23
Joey Picerno18-May-05 7:23 
GeneralSignal Break in VB.NET 2003 Pin
tazbird18-May-05 3:55
tazbird18-May-05 3:55 
Questionhelp: why a control created in VC can not work well in vb? Pin
ictory18-May-05 3:09
ictory18-May-05 3:09 
GeneralVB with Crystal Report Viewer Pin
Rafeeq Manamal18-May-05 2:55
Rafeeq Manamal18-May-05 2:55 
GeneralRe: VB with Crystal Report Viewer Pin
Joey Picerno18-May-05 7:21
Joey Picerno18-May-05 7:21 
GeneralConversion of Inet codes in VB6 to VB.NET Pin
jitwei18-May-05 2:33
sussjitwei18-May-05 2:33 
I have this codes to send out SMS from my application but it is in VB6. I can't seem to find the solution to convert it to work in VB.net especially the Inet component. Any help?

Option Explicit
Dim ReturnValue As String
Private Sub Form_Load()
Dim i As Integer
Dim splitResponse
Dim innerSplit
Dim smsContents As String, toNumber As String
Dim GetHTMLFromURL As String
Dim status As String, errorMsg As String, creditBal As String,
creditReq As String
Inet1.Execute "http://www.moceansms.com:13014/cgi-bin/sendsms",
"GET", , "mocean-username:foobar" & vbCrLf & "mocean-password:secret" &
vbCrLf & "mocean-to:" & toNumber & vbCrLf & "mocean-text:" &
smsContents & vbCrLf & "mocean-from:32248" & vbCrLf
Do While Inet1.StillExecuting
DoEvents
Loop
Inet1.Cancel
GetHTMLFromURL = ReturnValue
splitResponse = Split(GetHTMLFromURL, "&")
For i = 0 To UBound(splitResponse)
innerSplit = Split(splitResponse(i), "=")
If innerSplit(0) = "status" Then
status = innerSplit(1)
ElseIf innerSplit(0) = "err_msg" Then
errorMsg = innerSplit(1)
ElseIf innerSplit(0) = "credit_bal" Then
creditBal = innerSplit(1)
ElseIf innerSplit(0) = "credit_req" Then
creditReq = innerSplit(1)
End If
Next i
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
If State = 12 Then
ReturnValue = Inet1.GetChunk(32000)
End If
Questionhow to create a activex control that can be used in vb6? such as an example of atlopengl_demo Pin
ictory18-May-05 2:22
ictory18-May-05 2:22 
GeneralIMAP Pin
Member 197276317-May-05 22:36
Member 197276317-May-05 22:36 
GeneralProblem with custom ComboBox inside a GroupBox control. Pin
mrduckels17-May-05 21:31
mrduckels17-May-05 21:31 
GeneralRe: Problem with custom ComboBox inside a GroupBox control. Pin
Robert Rohde18-May-05 9:03
Robert Rohde18-May-05 9:03 
GeneralAdd a dll in vb6 Pin
Its due when17-May-05 19:54
Its due when17-May-05 19:54 
GeneralRe: Add a dll in vb6 Pin
Rizwan Bashir17-May-05 21:23
Rizwan Bashir17-May-05 21:23 
GeneralRe: Add a dll in vb6 Pin
toxcct18-May-05 1:07
toxcct18-May-05 1:07 
GeneralRe: Add a dll in vb6 Pin
Rizwan Bashir18-May-05 2:11
Rizwan Bashir18-May-05 2:11 
GeneralRe: Add a dll in vb6 Pin
toxcct18-May-05 2:16
toxcct18-May-05 2:16 
GeneralRe: Add a dll in vb6 Pin
Rizwan Bashir18-May-05 2:38
Rizwan Bashir18-May-05 2:38 
GeneralRe: Add a dll in vb6 Pin
toxcct18-May-05 2:41
toxcct18-May-05 2:41 
GeneralRe: Add a dll in vb6 Pin
rwestgraham18-May-05 10:05
rwestgraham18-May-05 10:05 
GeneralRe: Add a dll in vb6 Pin
Its due when18-May-05 13:33
Its due when18-May-05 13:33 
GeneralRe: Add a dll in vb6 Pin
rwestgraham18-May-05 14:32
rwestgraham18-May-05 14:32 
GeneralRe: Add a dll in vb6 Pin
Its due when18-May-05 15:53
Its due when18-May-05 15:53 
GeneralRe: Add a dll in vb6 Pin
rwestgraham19-May-05 10:16
rwestgraham19-May-05 10:16 
GeneralRe: Add a dll in vb6 Pin
Its due when19-May-05 15:16
Its due when19-May-05 15:16 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.