0-قەۋەت
2017-5-17 12:23:07 يوللىغان ۋاقتى
بۇ يازمىنى ئاخىرىدا Qut تەھرىرلىگەن. ۋاقتى 2017-5-17 12:30
4 U8 ~9 }& f3 T3 K- t) C
3 ~1 z& n3 L& ovb.net دە android تېلېفونلارغا ئەپ قاچىلاش توغۇرلۇق تېما ئېلىپ كەلدىم گەپنى قىسقا قىلىپ يىزىلغان كودىنى كۈرۈوپ ئۇتەيلى
# v$ T' t7 R! l# I5 y) A, ~vb.net نى قوزغۇتۇپ ئاۋۋال بىر تال model ئەكىرۋالىمىز رەسىمدىكىدەك
! b" e d, v. j& N
1 Z3 \2 _( H9 M# I: i0 [
7 \0 r( J( |+ b3 Y model غا توۋەندىكى كودنى چاپلايمىز
+ {3 a& {$ Z! z2 Q$ p1 فونكىسىيە , j. M3 ]: D- b
توۋەندىكى فونكىسىيەنى ئەپ قاچىلاش ئۈچۈن ئىشلىتىمىز- Public Function ExecuteCmd(ByVal cmd As String)0 X3 W7 U2 \ e
- Dim startInfo As New ProcessStartInfo("cmd.exe")% i8 G& [/ u+ r4 a5 K, H
- With startInfo0 u- B: E! ^2 K8 i% w3 a* R
- .Arguments = "/C " + cmd1 }- Z5 z6 w4 w; U+ c
- .RedirectStandardError = True: A) {3 {' z- V& c
- .RedirectStandardOutput = True ~/ [" s, y4 K. T0 C
- .UseShellExecute = False% @. r! j" S9 s) E- m
- .CreateNoWindow = True3 q* S+ t* B6 V3 u) J) x4 D p' F
- End With, ]( n% E2 E* Q/ c. a
- & r* U% D; n9 A; {4 ?7 F: U* s' T9 t; q
- Dim p As Process = Process.Start(startInfo)* ]7 N( L; x) y6 C
- Dim strOutput As String = p.StandardOutput.ReadToEnd()& x( t! X% e* q( y
- Dim strError As String = p.StandardError.ReadToEnd()# w9 s' e Q! D; U- W" V
3 r+ h) {) o; |3 O- p.WaitForExit()
$ A& b! @! a- O% B. y6 z
% H9 Z) W/ M3 H! J- Q) @- If (strOutput.Length <> 0) Then2 h& S0 O6 F. S( I
- Return strOutput
( P- B1 A8 t1 M* K- U - ElseIf (strError.Length <> 0) Then* a, C" u" s0 O z1 O- c! g
- Return strError
. {+ Q7 y5 K8 c8 M4 }7 E1 T - End If3 h( e/ P$ \6 B3 L1 X
7 m/ m! S- f# `$ o0 i5 G5 E, v' T) z$ c- Return ""
9 |. j1 `+ A$ T! ~7 x0 j0 I8 F2 X - End Function
تېلېاۇننىڭ تىپىنى بىلىش ئۈچۈن ئىشلىتىمىز- Public Function telcmd(ByVal cmdtext As String)6 `0 P _- J6 e9 P: a; r# M
- Dim cmd = My.Application.Info.DirectoryPath() & "\adb.exe"; T* F1 ?7 C$ x( i
- Dim p As New Process()
5 X* S4 ]3 E- }# x - p.StartInfo = New System.Diagnostics.ProcessStartInfo()% v+ W% y7 ~7 @$ |
- p.StartInfo.FileName = cmd/ o2 \/ u# K& O H; n
- p.StartInfo.Arguments = cmdtext8 p S0 h" \2 `' q& H
- p.StartInfo.UseShellExecute = False
. O& H* T! d0 f* u6 f0 G5 U - p.StartInfo.RedirectStandardInput = True
3 q7 h) ?2 W9 o, W) A" M - p.StartInfo.RedirectStandardOutput = True1 M& F9 n5 l" ^/ I% B8 E
- p.StartInfo.RedirectStandardError = True& K* G8 ^5 x+ q/ M
- p.StartInfo.CreateNoWindow = True% d; u$ _& @5 \. x2 o
- p.Start(). ?0 z) Z8 ]" r l% M* `) ]
- telcmd = p.StandardOutput.ReadToEnd()
/ J+ F% b. C8 l& q, {) z - p.Close()
0 I& X3 T$ ~1 E" b4 L - End Function
ئەپ قاچىلاش بۇيرۇقى- TextBox2.Text = ExecuteCmd("adb install" & ChrW(32) & TextBox1.Text)
9 W* i1 K; R2 _8 N/ r; {5 N. iتېلېفوننىڭ كومپيوتېرغا ئۇنغان ۋە تېلېفون تىپىنى تاپىدىغان كود- TextBox2.Text = ExecuteCmd("adb devices")
& k% I9 w2 l4 G# `8 P! M - Label2.Text = telcmd(cmdtext:="shell getprop ro.product.model")
. N! s+ l d7 ^كوميپتېرغا ئۇلانغان ھالىتى $ a6 l1 K- Y, h! F. A5 f3 h! ]
, x0 g W+ g' ?3 S4 r9 a- C% J* c0 [" e
كومپيوتېرغا ئۇلانمىغان ھالىتى
( \2 |# r6 F' ^& N: c$ k' T
6 a) I8 K# Z1 Mئەپ قاچىلاش ; I; U2 ]+ a6 q
9 ^* q& k8 }0 P; C1 g- u
ئەپ قاچىلاش مەغلۇپ بولغان( ]. l# h ?+ B/ J: Z4 B; L) H
7 o' m; q9 y6 \2 x" u
7 r0 N. G. Y( ?5 x: x; F
قالغان قىسىملىرىنى ئۈزەڭلار ئىزدىنىپ بىر نەرسە قىلاسىلەر ئۇقمىغان جاي بولسا قۇلۇمدىن كىلىشچە ياردەمدە بۇلىمەن
3 C& A/ f- k8 p+ } B+ k) D$ M) ?: Hئەسلى كودىنى بۇ يەردىن چۈشۈرۈش
_+ |& I' \/ ]) o: W: O
WindowsApp1.zip
(685.18 KB) چۈشۈرۈش سانى: 0
, u) @7 L; W. k' K Q6 L
U/ j- ?) u- @: L
& S3 ?4 R" j5 O7 e$ p" ]) d
W3 j) b6 a- K1 \7 e. J
3 d. u& i8 v9 ?- b/ w |
|
- تىزىملاتقان
- 2012-12-4
- ئاخىرقى قېتىم
- 2017-6-23
- ھوقۇقى
- 12
- جۇغلانما
- 2922
- يازما
- 189
- نادىر
- 1
شەرەپلىك ئەزا
      [؟]
 تەجرىبە- 1924
 شۆھرەت- 342
 تەڭگە- 120
|
ھەمبەھر
ساقلاش
قوللايمەن
قارشى
