delphil转换成VB

[hq0927]

Public Declare Function SOpen Lib "upload.dll" (ByVal server As String, usr As String, ByVal psw As String, ByVal cachefile As String) As Long



Procedure SessionUploadData(isess:longint; isbuy:boolean; medicament:PChar);stdcall;external 'upload.dll';




请哪位高手转换一下..代码转换成VB

[getemail]

路过

[qingye2008]

getemail,,这家伙绝对中毒了

[getemail]

挑衅咋地?

[Quote=引用 2 楼 qingye2008 的回复:]
getemail,,这家伙绝对中毒了
[/Quote]

[hq0927]

已经有答案.送分给跟帖的

Public Declare Function SOpen Lib "upload.dll" (ByVal server As String, ByVal usr As String, ByVal psw As String, ByVal cachefile As String) As Long

[getemail]

谢谢
[Quote=引用 4 楼 hq0927 的回复:]
已经有答案.送分给跟帖的

Public Declare Function SOpen Lib "upload.dll" (ByVal server As String, ByVal usr As String, ByVal psw As String, ByVal cachefile As String) As Long
[/Quote]

[booksoon]

[Quote=引用 4 楼 hq0927 的回复:]
已经有答案.送分给跟帖的

Public Declare Function SOpen Lib "upload.dll" (ByVal server As String, ByVal usr As String, ByVal psw As String, ByVal cachefile As String) As Long
[/Quote]

还没搞明白问题,也没看着答案~~~

[getemail]

能自己解决问题比什么都好

[Quote=引用 6 楼 chinayuppie 的回复:]
引用 4 楼 hq0927 的回复:
已经有答案.送分给跟帖的

Public Declare Function SOpen Lib "upload.dll" (ByVal server As String, ByVal usr As String, ByVal psw As String, ByVal cachefile As String) As Long


还没搞明白问题,也没看着答案~~~
[/Quote]

[贝隆]

飘过