help me plese.... how to build adb gui with vb

[david_h4ck_u]

everyone in this forum help me please. i need build gui android adb using visual basic.but i got some problems using visual basic to access adb . i try to use shell comand in vb here simple sample i build in vb 6.0 like this:

Private Sub Command1_Click()

a = Shell("C:\Program Files\android sdk\tools\adb get-serialno", vbMaximizedFocus)

end sub

but the final result that comand cannot run .only dos console with fast running bla...and dissapeared dos console

please help me.how to build gui adb with vb.thank you.

[adhitya_1978]

as i know basic android is java programing.
many tutorial in net how to config adb using netbeans & eclipse.
i thinks not hard to config adb.

the important you should know api version for your device.

[smithjhon]

maybe this = but the final result that comand cannot run .only dos console with fast running bla...and dissapeared dos console, is same file *.bat
why you not try with some like this :
Dim str As String
str = "Start"
Shell("C:\WINDOWS\system32\cmd.exe /c " & str)
you can change this for adb.exe and change str for get serial blablabla o whatever

[david_h4ck_u]

Originally Posted by smithjhon

maybe this = but the final result that comand cannot run .only dos console with fast running bla...and dissapeared dos console, is same file *.bat
why you not try with some like this :
Dim str As String
str = "Start"
Shell("C:\WINDOWS\system32\cmd.exe /c " & str)
you can change this for adb.exe and change str for get serial blablabla o whatever

can you give me simple project to access adb dos console with vb.please

[yogeshpatel4790]

Send me vb code sir

[dr_aybyd]

do not use shell
Instead use Proccess.Start
Go search it on msdn.

[david_h4ck_u]

Originally Posted by dr_aybyd

do not use shell
Instead use Proccess.Start
Go search it on msdn.

can you give me simple source code sample sir? thank you

[bilalzaink]

Originally Posted by david_h4ck_u

can you give me simple source code sample sir? thank you

make a .bat file for your commands...
and write this code....

"
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click

Dim adb As New Process()
adb.StartInfo.FileName = "adbcmd.bat"
adb.StartInfo.UseShellExecute = False
adb.StartInfo.RedirectStandardOutput = True
adb.StartInfo.CreateNoWindow = True
adb.Start()

TextBox1.Text = adb.StandardOutput.ReadToEnd

End Sub