بىلىملەر مۇنبىرى

 پارول قايتۇرىۋېلىش
 تىزىملىتىڭ
جەمئىي مىكروبلوگ 290 تال  

مىكروبلوگ[ يېڭى | 24 سائەت | 7 كۈن | 30 كۈن ]

  • qatak007 2021-12-29 15:46 [ئىنكاس(0)] [...]

    يېڭى ئاكونتىم تەستىقسىز ئەزا دەپ ھېچنېمە قىلالماپتىم

  • sburkut 2021-12-19 16:11 [ئىنكاس(0)] [...]

    EMLOG proنىڭ يىڭى نەشىرى يامانكەن،ئېمىلوگ ئىشلەتكەنلە مۇشۇنىڭغا كۆچسە بولغۇد...

  • altaxna 2021-11-14 12:24 [ئىنكاس(0)] [...]

    ياخشىراق 加密دىتال بولسا تەۋسىيە قىلساڭلار

  • altaxna 2021-11-5 19:26 [ئىنكاس(0)] [...]

    بىلىملەردە ئىنكاسىمنىڭ تەستىقلىنىشىنى ساقلاپ بولالمىدىم

  • kapsizjan 2021-10-19 23:15 [ئىنكاس(1)] [...]

    دوسلار قايسىڭلا سالۇن ئۈچ توپ سىستىمىسىنى ئىشلىتىشنى ئۇقىسىلە ياساغلىق

  • NuerCode 2021-10-7 19:45 [ئىنكاس(2)] [...]

    بىلىملەرنىڭ يىڭلىنشى بەك ئاستىغا    

  • Bashqut 2021-9-17 11:23 [ئىنكاس(6)] [...]

    emlog نىڭ ئەڭ يېڭى نەشىرى ئۆزلەشتۈرىلىۋاتىدۇ، پار ئارىدا ئېلان قىلىنىدۇ...

كۆرۈش: 8095|ئىنكاس: 3

[VB/.Net] vb.net دە android تېلېفونلارغا ئەپ قاچىلاش

[ئۇلانما كۆچۈرۈش]

بىكەتكە ئەزا نامىڭىز بىلەن كىرسىڭىز تېخىمۇ كۆپ ئۇچۇرلارنى كۆرەلەيسىز

مۇنبىرىمىزگە تىزىملىتىپ كىرسىڭىز ئاندىن قوشۇمچە ھۆججەتنى كۆرەلەيسىز ياكى چۈشۈرەلەيسىز . تېخى تىزىملاتمىغانمۇ؟ تىزىملىتىڭ

x
vb.net  دە  Android  تېلېفونلارغا  ئەپ قاچىلاش   توغۇرلۇق تېما ئېلىپ كەلدىم   گەپنى قىسقا قىلىپ    يىزىلغان كودىنى  كۈرۈوپ ئۇتەيلى
vb.net  نى قوزغۇتۇپ   ئاۋۋال  بىر تال   model   ئەكىرۋالىمىز   رەسىمدىكىدەك   
QQ截图20170517120025.png

model  غا توۋەندىكى كودنى چاپلايمىز   
1 فونكىسىيە
توۋەندىكى  فونكىسىيەنى ئەپ قاچىلاش ئۈچۈن ئىشلىتىمىز
  1.     Public Function ExecuteCmd(ByVal cmd As String)
  2.         Dim startInfo As New ProcessStartInfo("cmd.exe")
  3.         With startInfo
  4.             .Arguments = "/C " + cmd
  5.             .RedirectStandardError = True
  6.             .RedirectStandardOutput = True
  7.             .UseShellExecute = False
  8.             .CreateNoWindow = True
  9.         End With

  10.         Dim p As Process = Process.Start(startInfo)
  11.         Dim strOutput As String = p.StandardOutput.ReadToEnd()
  12.         Dim strError As String = p.StandardError.ReadToEnd()

  13.         p.WaitForExit()

  14.         If (strOutput.Length <> 0) Then
  15.             Return strOutput
  16.         ElseIf (strError.Length <> 0) Then
  17.             Return strError
  18.         End If

  19.         Return ""
  20.     End Function
مەزمۇننى كۆچۈرۈۋېلىش
2 فونكىسىيە
تېلېاۇننىڭ تىپىنى  بىلىش ئۈچۈن  ئىشلىتىمىز
  1.     Public Function telcmd(ByVal cmdtext As String)
  2.         Dim cmd = My.Application.Info.DirectoryPath() & "\adb.exe"
  3.         Dim p As New Process()
  4.         p.StartInfo = New System.Diagnostics.ProcessStartInfo()
  5.         p.StartInfo.FileName = cmd
  6.         p.StartInfo.Arguments = cmdtext
  7.         p.StartInfo.UseShellExecute = False
  8.         p.StartInfo.RedirectStandardInput = True
  9.         p.StartInfo.RedirectStandardOutput = True
  10.         p.StartInfo.RedirectStandardError = True
  11.         p.StartInfo.CreateNoWindow = True
  12.         p.Start()
  13.         telcmd = p.StandardOutput.ReadToEnd()
  14.         p.Close()
  15.     End Function
مەزمۇننى كۆچۈرۈۋېلىش
1 - bottun1  بىرگە توۋەندىكى كودنى يىزىمىز
ئەپ قاچىلاش بۇيرۇقى
  1.      TextBox2.Text = ExecuteCmd("adb install" & ChrW(32) & TextBox1.Text)
مەزمۇننى كۆچۈرۈۋېلىش
2 - button2  گە  توۋەندىكى كودنى  يىزىمىز
تېلېفوننىڭ كومپيوتېرغا ئۇنغان ۋە تېلېفون تىپىنى  تاپىدىغان كود
  1.         TextBox2.Text = ExecuteCmd("adb devices")
  2.         Label2.Text = telcmd(cmdtext:="shell getprop ro.product.model")
مەزمۇننى كۆچۈرۈۋېلىش
كود  يىزىش تامام

كوميپتېرغا  ئۇلانغان ھالىتى
ulanghan.png

كومپيوتېرغا ئۇلانمىغان ھالىتى
ulanmighan.png
ئەپ قاچىلاش
apkinsstal.png
ئەپ قاچىلاش مەغلۇپ بولغان
ap kaqilaxmaghlup bolghan.png

قالغان قىسىملىرىنى   ئۈزەڭلار ئىزدىنىپ  بىر نەرسە قىلاسىلەر  ئۇقمىغان جاي بولسا قۇلۇمدىن كىلىشچە ياردەمدە بۇلىمەن

ئەسلى كودىنى  بۇ يەردىن چۈشۈرۈش
WindowsApp1.zip (685.18 KB, چۈشۈرۈش سانى: 18)

باھالاش

قاتناشقانلار سانى 2شۆھرەت +2 تىللا +9 قىزغىنلىق +6 يىغىش سەۋەبى
hoxbulah + 3
admin + 2 + 6 + 6 ئالامەت!

باھا خاتىرىسى

بىلمىگەننى بىلىملەردىن بىل!
ۋاقتى: 2017-5-18 19:08:57 | ھەممە قەۋەتنى كۆرۈش
قالتىس دەرسلىك بولۇپتۇ بۇ.
مەزكۇر يازما، ئەپ ياردەمچىسى ياكى ئەپ بازىرى دىتالى ياساشنىڭ ئاساسى ئىكەن.

باھا سۆز

qut
تېما يارىغان بولسا تارتۇقلاش ئۇنۇتمىغايلا  تەپسىلاتى ئىنكاس ۋاقتى: 2017-5-18 20:28
بىلمىگەننى بىلىملەردىن بىل!
 ئىگىسى| ۋاقتى: 2017-5-18 20:28:15 | ھەممە قەۋەتنى كۆرۈش
admin يوللىغان ۋاقتى  2017-5-18 19:08
قالتىس دەرسلىك بولۇپتۇ بۇ.
مەزكۇر يازما، ئەپ ياردەمچىس ...

تېما يارىغان بولسا تارتۇقلاش  ئۇنۇتمىغايلا  
بىلمىگەننى بىلىملەردىن بىل!
ۋاقتى: 2018-1-27 13:39:23 | ھەممە قەۋەتنى كۆرۈش
مۇشۇ دەرىسلىكلەرنى  سۈرئەتلىك  قىلىپ  يولللىغان  بولسىڭىز  قانچە  ياخشى  بولغان  بولاتتى   
بىلمىگەننى بىلىملەردىن بىل!
كىرگەندىن كېيىن ئىنكاس يازالايسىز كىرىش | تىزىملىتىڭ

سەھىپە جۇغلانما قائىدىسى

QQ|قاماقخانا|رەسىمسىز ھالەت|يانفۇن| بىلىملەر تورى ( 沪ICP备19027845号-8 )   

GMT+8, 2022-9-29 15:32 , Processed in 0.075995 second(s), 28 queries .

Powered by Discuz! X3.2(NurQut Team)

© 2001-2013 Comsenz Inc.

تېز ئىنكاس چوققىغا قايتىش سەھىپىگە قايتىش