|
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
|
|
|
|
|
hello , there is a popular example of atlopengl_demo that can be downloaded in the page http://www.codeproject.com/atl/atlopengl.asp.
It is a opengl control created in VC, but when I use it in vb ,it can not work, why?
If I want to use it well in VB,how can I do?
thank you very much!
thank u very much
|
|
|
|
|
I am connecting to teh IMAP server through winsock control.I am getting the initial server greeting.After that i am not getting any response.Pleas ehelp.The cod is in VB
|
|
|
|
|
Hello, Im a VB.NET programmer from Holland and have created a MultiColumn-ComboBox. It is working pretty sweet although there is a problem I cant figure out on my own:
When I place a normal 'native' ComboBox inside a GroupBox and let it expand the List which comes out will override the DisplayRectangle of the GroupBox, but my MultiColumn-ComboBox won't do it, outside the GroupBox its invisible!
But it is not the MultiColumn-ComboBox "Friend WithEvents ListView" that has to overlap the GroupBox, but the whole UserControl. When the list has to expand the UserControl.Height will raise resulting in showing the ListView.
Please, I hope you can help me out. Thanks 
Game-Programmer
|
|
|
|
|
This wont work this way 
The normal CombBox is not expanding itself but showing a new window right beneath the control. And because its a window it can overlap everything else (it even can go beyond a form border which can NEVER be done by just expanding the control).
You will have to make something similar. Put the ListView into a Form with no border, showing it at the right place and hiding it when you are done.
Searching here on CodeProject will give you some articles where you can get some ideas on how this can be achieved.
|
|
|
|
|
Hi All,
Ive got a third party program that im trying to use in vb6. However it references a dll that cant be found (well its there but I dont know how to add it to the project)
Debugging highlights this bit of code:
ab = dll_ss12_dosomething( _
ab1, _
ab2, _
ab3)
I know which dll to call as it is an app specific dll but I dont know how to reference it correctly in vb6. There are tons of examples on how to do it in vb.net and even the support manual shows how to do this in vb.net but not vb6. Oh and vb6 is supported by this app. Any help would be greatly appreciated. Thanks!
Nic
|
|
|
|
|
Hello there
did you try to add the reference in vb.net as all the dll files are not COM objects and those who are not COM objects cannot be references like the way you are doing.... just for e.g API's also come from Dll but these are not COM objects...
so make sure it is a COM object other wise you need to use that as an API...
|
|
|
|
|
|
hahahaha.. thanks for a valueable information ... I suggested was for vb6.... So try as I am talking about vb6.
|
|
|
|
|
"did you try to add the reference in vb.net..."
didn't know you were talking about VB6
TOXCCT >>> GEII power
[toxcct][VisualCalc]
|
|
|
|
|
you missed two words from my quoted sentence "As well" let me put the complete sentence again
did you try to add the reference in vb.net as all
I guess you need a forum for English Grammer as well.
note::: dont miss as well in the above line
Search for that..
|
|
|
|
|
well tried
(ps: if you spoke english better first, there would be no problem of understanding you b****)
TOXCCT >>> GEII power
[toxcct][VisualCalc]
|
|
|
|
|
If you do not call a DLL directly in VB6 you do not need to reference the DLL in VB6. If your main DLL requires a second DLL that you never call explicitly, this is not a VB6 problem. Either the DLL is not registered properly if it is a COM DLL, or it is either corrupt, not the correct version, or not installed to the correct location if it is a standard DLL. The first step in solving your problem is to determine if the "missing" DLL is a COM component. If it is, make sure it is registered properly. Beyond that, your information is too vague to be of much use. If it is a third party package, try contacting the people who created it.
Robert
|
|
|
|
|
Thanks for that guys. I guess my vagueness is attributed to the fact that vb6 is not my strong point. Its not a COM DLL. From my understanding there are 2 steps required for using a dll. (1) The declare statement passing arguments byVal and (2) Calling the DLL procedure.
Now Ive done the Declare statement correctly but when I actually call the dll in the code it comes up with a run time error "53": File not found (ss12.dll)
Now what Im assuming is that there must be a way to map a path to this dll? Am I right in assuming this? Once again I thank you all for assisting me with this.
Nic
|
|
|
|
|
Unfortunately calling non-COM dlls is not that simple. ByVal is not a general rule by any means, many if not even most parameters must be passed ByRef. Also, you have to translate some C/C++ types into VB-friendly data types. Many types commonly used in C/C++ can be translated into VB types but not all. There is no guarantee that you can call all functions exposed by a non-COM DLL. Writing proper Declare statements is part experience, part trial and error. Save your work frequently - improperly declared DLL calls can often cause your application to crash.
There are rules that Windows uses to locate DLLs. Generally if you put the DLL in either the application folder or the WinSys folder, it will be found.
Robert
|
|
|
|
|
Hi Robert,
Thank you for your reply. I tried putting the dll in question into the application folder (I assume this is the folder in which the vb project resides in?) - Unfortunately again it says that the dll could not be found.
Now when you say WinSys folder do you mean the system/system32 folder in the windows directory? I tried putting them in both folders but unfortunately again no go - File not found: Run time error 53
Any other thoughts?
|
|
|
|
|
Post the exact name of your DLL, and an example of your declare statement in VB and I will look at it. If you wish you can e-mail me the DLL itself too - rwest_graham@yahoo.com
Robert
|
|
|
|
|
Hi Robert,
Thanks for your help but I actually worked it out. It couldnt find the dll cause the system path did not have the dir to the dll location at all. I put it in and it worked like a treat.
By system path I mean if you go into the properties of my computer and then onto environment variables you can specify the path where dll's are stored and if you do this it works.
Once again I thank you and all who posted for your help. Great help -> Great Forum 
Nic
|
|
|
|
|
I am not been able to remove items from the collection
a.Add("s")
a.Add("s")
a.Add("s")
a.Add("s")
a.Add("s")
a.Add("s")
For inti As Integer = 1 To a.Count
a.Remove(inti)
Next
when inti=4 then it gives the error
"collection index must be in the range of 1 to the size of the collection"
why is this happening and how to clear collection. Urgent!!!!!
|
|
|
|
|
When you remove an item from a collection, everything above that index number moves down one. So, in your example, when you removed index 1, the items at 2 and above moved down.
Instead of removing every index, count them and remove the first one every time:
a.Add("s")
a.Add("s")
a.Add("s")
a.Add("s")
a.Add("s")
a.Add("s")
For i As Integer = 1 To a.Count
a.Remove(0)
Next
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
|
The easiest way to clear a collection is to put a.Clear(). You should always hit the dot and look through the intellisense if you're not sure if a method is supported. Assuming you were actually stepping through trying to remove specific items, step backwards like this ( sorry C# code, I dunno the VB syntax ):
for(int i = a.Count-1;i>=0;--i)
{
if (a[i] == "ThevalueIwanttoREmove")
{
a.RemoveAt(i);
}
}
That way, the indexes that change are all in the range I've already stepped through.
Note also that your loop cannot work, arrays are 0 indexed, not 1 indexed. a(0) is the first element, a(1) is the second.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Christian Graus wrote:
sorry C# code, I dunno the VB syntax
you mean this ?
For i As Integer To a.Count - 1 Step -1
If a(i) = "TheValueIwantToRemove" Then
a.RemoveAt(i)
End If
End For
another much apreciated VB code would be :
For each Ob As Abject In a
a.Remove(Ob)
End For
or even better :
a.clear()
TOXCCT >>> GEII power
[toxcct][VisualCalc]
|
|
|
|
|
toxcct wrote:
you mean this ?
Yeah - the step was the part I was not sure of, and I'd prefer to say so than give code that turns out to be syntactically wrong.
toxcct wrote:
a.clear()
Yeah, I did actually point that out as well 
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Hi 2 all
Actually i am developing an Online application, in which I have different users with different user names. Now when they sign in there is no problem to me, but the main problem is that I want to know what would be the code behind the sign out button.
Thanx in advance for helping me.
Bye
Arfan Qadir
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
