|
Uhh...You don't have anything better to do??
|
|
|
|
|
If you want to advertise your firm, buy an ad. As far as I can see, you just announced that you're accountants, but you can't manage your own money well enough to pay for advertising.
Christian Graus
Driven to the arms of OSX by Vista.
|
|
|
|
|
I do not know the publisher xxxx.dll
I found the function with "dllfunctionviewer"
but did not find the arguments.
How can I use the function.
or How do I find the arguments.
exaple;
declare fonction fffff lib "xxxx.dll" (byval???????????????????????????????????????) as ?????
thanks.
|
|
|
|
|
The only thing that will tell you what the arguments are is the documentation. There is no utiltiy that will tell you.
|
|
|
|
|
Well, if the .dll is from .Net and not obfuscated, then you could probably use Reflector.
The OP's question is hard to read and doesn't state that, so who knows.
Any suggestions, ideas, or 'constructive criticism' are always welcome.
"There's no such thing as a stupid question, only stupid people." - Mr. Garrison
|
|
|
|
|
thanks. yes i tried.
but reflector shows only the "functions"
arguments does not show with reflector.
in the meantime,
i have an exe file.
this exe file using xxxx.dll
can i use this exe file for arguments?
|
|
|
|
|
Hello, I'm in the process of converting an application from VB6 to VB.NET. So far things have been going very smoothly, however I've come across an error I'm not sure how to get around. It happens on a line with a function that takes an object as its argument and returns a short. Basically what's supposed to happen is that if the result is not -1 then the app is supposed to close out due to it timing out if a button isn't clicked in time.
So far, after stepping through, the aforementioned function seems to run without error, but when the app tries to compare the result against a constant (-1), then the error occurs. The error is this:
Error Code 61837
Error Source is something I'm not sure how to duplicate with a keyboard, looks like 8 to the first power and a capital A with a tilde over it.
Error message is "Unable to write read-only property"
Here's the line in question: If util_Pause(myObject.Property, 200) <> CONST_MINUSONE Then
Thanks in advance
[EDIT] Okay, I fixed the issue, though any advice for the future would be welcome. I just set an object variable equal to what I was originally throwing into the function and just threw that in as the argument. That fixed the issue.
modified on Friday, March 20, 2009 8:57 AM
|
|
|
|
|
I am not an experienced programmer, can any one provide a solution, I want to capture all httprequests (post,get) from vb.net webbrowser control?
|
|
|
|
|
From the browser control?? You'd have to implement some kind of proxy server and direct the browser to use that instead of going straight out to the Internet.
This is definitely NOT a beginner level project.
|
|
|
|
|
For form elements that are posted to the page
Request.Form("formName")
to get the values from the url
Request("help")
Hope this helps.
|
|
|
|
|
Hi Experts,
I m an ABAPer, My requirement is to transfer MSAccess data to SAP Custom table (created by me) through RFC call from VB code.
All ABAP things are done but through VB i have to pass table name to my SAP RFC code. I dont understand how i can pass tablename. It does not accept recordset.
Can anyone give me any thought how this could be done in VB.
Thanks in advance.
|
|
|
|
|
Before we answer, what versio of VB are you using ?
Vuyiswa Maseko,
Few companies that installed computers to reduce the employment of clerks have realized their expectations.... They now need more and more expensive clerks even though they call them "Developers" or "Programmers."
C#/VB.NET/ASP.NET/SQL7/2000/2005/2008
http://www.vuyiswamaseko.tiyaneProperties.co.za
vuyiswa@its.co.za
www.ITS.co.za
|
|
|
|
|
Hi Vuyiswa,
Thanks for ur reply.
my vb version is VB6, also i tried using ActiveX control but it did not through.
........tblOPTIONS = adodc1.recordsource
|
|
|
|
|
VB6 is Dead and should not be used anymore. Microsoft has abandoned it.
I can only help you if you are using VB.NET or C#
Thank you
Vuyiswa Maseko,
Few companies that installed computers to reduce the employment of clerks have realized their expectations.... They now need more and more expensive clerks even though they call them "Developers" or "Programmers."
C#/VB.NET/ASP.NET/SQL7/2000/2005/2008
http://www.vuyiswamaseko.tiyaneProperties.co.za
vuyiswa@its.co.za
www.ITS.co.za
|
|
|
|
|
hi, iv got this prgm where i choose a file, read the data in the file, compare it with a directory whether data in that file r in that directory..
data in the file
<tarikh> <runno> <coop>
20090101 C1234 B0018
20090211 C1234 B0150
20090228 C5678 BRT10
20090228 C5678 BP001
when i debug the prgm, the error happen in convertCoop(coop) at Catch Ex As Exception.. b4 Catch part, the value of coop can be retrieve, but when i try to put values from table kodPortal to portal that is portal = ds.Tables(0).Rows(0).Item("portal"), at this part, no values are enter to portal. the error at catch is "make sure that the max index on a list is less than the list size". before this the prgm can run and come out with an output, but when i choose file that have no extension, the error come out.. after i did some editing, now any file that i choose have the same error. Pls help me... i have been posting this msg at several forum, but no one can help me..
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fdlg As OpenFileDialog = New OpenFileDialog()
fdlg.Title = "C# Corner Open File Dialog"
fdlg.InitialDirectory = "c:\"
fdlg.Filter = "All files (*.*)|*.*|All files (*.*)|*.*"
fdlg.FilterIndex = 2
fdlg.RestoreDirectory = True
If fdlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
TextBox1.Text = fdlg.FileName
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim folderopen As New FolderBrowserDialog
With folderopen
.RootFolder = Environment.SpecialFolder.Desktop
.SelectedPath = "C:\DOCUMENT"
.Description = "Select the source directory"
If .ShowDialog = Windows.Forms.DialogResult.OK Then
' Display the selected folder if the user clicked on the OK button.
MessageBox.Show(.SelectedPath)
TextBox2.Text = .SelectedPath
End If
End With
End Sub
Private Sub convertCoop(ByVal coop As String)
Dim conn1 As New SqlClient.SqlConnection("Data Source=10.0.0.70;User ID= sysadm;Password=sysadm;Initial Catalog=SPGA_Latihan;Persist Security Info=True;")
Dim comm As SqlClient.SqlDataAdapter = Nothing
Dim ds As DataSet = New DataSet()
Dim strSQL2 As String = "SELECT folder, portal FROM kodPortal WHERE folder ='" & coop & "'"
Try
conn1.Open()
comm = New SqlClient.SqlDataAdapter(strSQL2, conn1)
comm.Fill(ds, "kodPortal")
portal = ds.Tables(0).Rows(0).Item("portal")
conn1.Close()
Catch ex As Exception
MsgBox(ex.Message)
Finally
If Not conn1 Is Nothing And conn1.State = ConnectionState.Open Then
conn1.Close()
End If
conn1 = Nothing
comm = Nothing
End Try
End Sub
Private Sub SEMAK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SEMAK.Click
Dim fileName As String = TextBox1.Text.Trim
Dim lineNumber As Integer = 0
Dim sr As StreamReader = New StreamReader(fileName)
Dim conn As New SqlClient.SqlConnection("Data Source=10.0.0.70;User ID= sysadm;Password=sysadm;Initial Catalog=SPGA_Latihan;Persist Security Info=True;")
Dim tarikh As String = ""
Dim runNo As String = ""
Dim coop As String = ""
Dim line As String = ""
Do
line = sr.ReadLine()
If line <> Nothing Then
Try
tarikh = line.Substring(0, 8).Trim()
runNo = line.Substring(9, 5).Trim()
coop = line.Substring(15).Trim()
Catch ex As Exception
Console.Write(ex.ToString())
End Try
Dim strSQL As String = "INSERT INTO portal (tarikh,runNo, coop) VALUES (@tarikh, @runNo, @coop)"
Dim cmd As New System.Data.SqlClient.SqlCommand(strSQL, conn)
conn.Open()
cmd.Parameters.Add(New SqlClient.SqlParameter("@tarikh", SqlDbType.Char, 8))
cmd.Parameters("@tarikh").Value = tarikh
cmd.Parameters.Add(New SqlClient.SqlParameter("@runNo", SqlDbType.Char, 20))
cmd.Parameters("@runNo").Value = runNo
cmd.Parameters.Add(New SqlClient.SqlParameter("@coop", SqlDbType.VarChar, 100))
cmd.Parameters("@coop").Value = coop
cmd.ExecuteNonQuery()
conn.Close()
Dim dirB1 As DirectoryInfo = New DirectoryInfo(TextBox2.Text)
Try
convertCoop(coop)
Dim dA1 As DirectoryInfo
Dim dirB2 As FileSystemInfo() = dirB1.GetDirectories
Dim strSQL2 As String = "SELECT folder, portal FROM kodPortal"
Dim cmd2 As New System.Data.SqlClient.SqlCommand(strSQL2, conn)
For Each dA1 In dirB2
If dA1.Name = portal Then
Dim dA2 As DirectoryInfo
Dim dirB3 As FileSystemInfo() = dA1.GetDirectories
For Each dA2 In dirB3
If dA2.Name = "Fail_Bayaran" Then
Dim dA3 As DirectoryInfo
Dim dirB4 As FileSystemInfo() = dA2.GetDirectories
For Each dA3 In dirB4
If dA3.Name = coop Then
Dim dA4 As FileSystemInfo
Dim dirB5 As FileSystemInfo() = dA3.GetFileSystemInfos
For Each dA4 In dirB5
If dA4.Name <> runNo Then
MsgBox(coop)
End If
Next dA4
End If
Next dA3
End If
Next dA2
End If
Next dA1
Catch ex As Exception
End Try
End If
Loop Until line Is Nothing
sr.Close()
End Sub
|
|
|
|
|
I've answered you plenty of times. Your code sucks. Also, no-one is going to read this much code.
Your core issues are:
1 - you read from a collection without checking first if it has objects at the index you specify
2 - this means your SQL is failing.
#2 is the issue you need to resolve. #1 is just a matter of writing production quality code.
Christian Graus
Driven to the arms of OSX by Vista.
|
|
|
|
|
i know my code sucks bcoz this is my 2nd time doing a prgm n b4 this i dont even know how to use vb or vb.net at all. it would be great if u give me any related article regarding issues 1 n 2. as i said b4 in my previous post (not this one but the same problem) my english r not that good, so whenever i try to google my problem, i cannot find any related article to my problem. i know u dont have time to entertain my stupid question, but if u can pls give the related link. im quite confused why it run ok n suddenly it cannot bcoz i didnt do any editing on ds.table part and it can retrieve data from table b4 this.
tq
|
|
|
|
|
create a program that using a combination of selection statement (if-else if/swith-case)
and loop statement(for/while/do-while).
|
|
|
|
|
You're going to fail your class. Well, you sure deserve to, at this rate. Your project is both trivial, and vague. No-one is going to do your homework for you. If you can't work it out, talk to your teacher, look at your books, or apply for an arts course ( or cut out the middle man and get a job at McDonalds )
Christian Graus
Driven to the arms of OSX by Vista.
|
|
|
|
|
Christian Graus wrote: apply for an arts course ( or cut out the middle man and get a job at McDonalds )
LOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOLerrific.
|
|
|
|
|
Here ya go,
Do
If User = "Jieya" AndAlso AttemptedHomework Then
HasClue = True
Else
HasClue = False
Call GetJobAtMcDonalds(User)
End If
Loop Until (HasClue = True)
In your case, this would probably just be an endless loop.
Cheers
Any suggestions, ideas, or 'constructive criticism' are always welcome.
"There's no such thing as a stupid question, only stupid people." - Mr. Garrison
modified on Friday, March 20, 2009 10:03 AM
|
|
|
|
|
hello every one
i am having problem related to listview.I want to sort partivular column of listview (ascending or descending)on label mouse click event.I knew how to sort whole listview for that my code is :-
Private Sub lbl2_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lbl2.MouseClick
Try
Me.lst1.Sorting = SortOrder.Descending
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
please help.......
|
|
|
|
|
wow - are you trying to write unreadable code ? lbl2 and lst1 ?
If the list control doesn't have a property for what column to sort by, you may have to sort your data yourself and just bind to a sorted collection.
Christian Graus
Driven to the arms of OSX by Vista.
|
|
|
|
|
hi
this lst1 are lbl2 shortform written for listview and labels....
|
|
|
|
|
Okay, you defined your sorting order, but you forgot to sort! Add the following:
Me.lst1.Sort()
|
|
|
|