![]() |
|
[سؤال] تشغيل ملفات دفعيه فيجول بيسك - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : [سؤال] تشغيل ملفات دفعيه فيجول بيسك (/showthread.php?tid=25188) |
تشغيل ملفات دفعيه فيجول بيسك - wagday - 01-06-18 لقد بحثت طويلا ولم اجد حل واضحا وارجوا المساعده لدي ملف بصيغه bat ويوجد في اوامر معينه واريد عندما يتم ضغط الزر في البرنامج يقوم بفتح ملف bat ومن دون ان يضهر للمستخدم انه انفتح يعني ينفتح وبشكل خفي كي يتم تنفيذ الاوامر وهل يمكننني ان ادمج الbat مع البرنامج بحيث ارفع البرنامج للانترنت بدون ملف bat ليكون شكل البرنامج جميلا وارجووووووووووووووو الرد وشكراااااااااااااااااااااااااااااااااااااااااااااااااا RE: تشغيل ملفات دفعيه فيجول بيسك - عبدالله الدوسري - 01-06-18 ماذا يوجد في ملف الـ bat ضع الأكواد هنا. RE: تشغيل ملفات دفعيه فيجول بيسك - wagday - 01-06-18 يوجد اوامر لتعريب الجوال لقد صممت برنامج لتعريب هاتف معين ووضعت الاوامر جميعها في ملف bat وهاذاه هي الاوامر كامله @shift /0 @shift /0 @echo off mode con:cols=63 lines=29 color 39 title arabic j100vpp oH1_ BY wagday Kmail adb kill-server >nul echo --------------------------------------------------------------- echo arabic j100vpp oH1_ BY wagday Kmail echo 775765713 echo Make sure you have root access echo --------------------------------------------------------------- echo :I Waiting for your phone to appear adb wait-for-device >nul echo. echo :I Pushing files adb push sysFile /data/local/tmp/sysFile/ >NUL 2>&1 echo. echo :I Replaceing the arabic files ... adb shell su "-c" "mount -o rw,remount /system" echo. adb shell su "-c" "cp -rf /data/local/tmp/sysFile/system/app/* /system/app/" adb shell su "-c" "cp -rf /data/local/tmp/sysFile/system/priv-app/* /system/priv-app/" adb shell su "-c" "cp /data/local/tmp/sysFile/system/framework/* /system/framework/" adb shell su "-c" "cp /data/local/tmp/sysFile/system/fonts/* /system/fonts/" adb shell su "-c" "cp -rf /data/local/tmp/sysFile/system/ah/* /system/" adb shell su "-c" "cp /data/local/tmp/sysFile/system/csc/* /system/csc/" adb shell su "-c" "cp /data/local/tmp/sysFile/system/carrier/* /efs/carrier/" adb shell su "-c" "cp -rf /data/local/tmp/sysFile/system/csc/* /system/csc/" adb shell su "-c" "cp /data/local/tmp/sysFile/system/T9DB/* /system/T9DB/" echo. : naw Fix All problem . ..... adb shell su "-c" "chmod 755 /system/csc/appresource" adb shell su "-c" "chmod 644 /system/csc/appresource/*" adb shell su "-c" "chmod 644 /system/T9DB/*" adb shell su "-c" "chmod 644 /system/fonts/*" adb shell su "-c" "chmod 755 /system/priv-app/wagday" adb shell su "-c" "chmod 644 /system/priv-app/wagday/*" adb shell su "-c" "chmod 755 /system/wallpaper" adb shell su "-c" "chmod 644 /system/wallpaper/lockscreen_default_wallpaper.png" adb shell su "-c" "chmod 755 /system/wallpaper/default_wallpaper" adb shell su "-c" "chmod 644 /system/wallpaper/default_wallpaper/*" adb shell su "-c" "rm -r /system/priv-app/VZNavigator/" adb shell su "-c" "rm -r /system/priv-app/VzwSilentSSOEngine/" adb shell su "-c" "rm -r /system/priv-app/MyVerizon/" adb shell su "-c" "rm -r /system/app/Cmas/" adb shell su "-c" "rm -rf /data/local/tmp/sysFile/" echo Done echo. adb reboot echo. echo --- All Done --- echo --- wagday kmail --- :exit echo. echo. Press any key to exit. pause >nul كود : @shift /0RE: تشغيل ملفات دفعيه فيجول بيسك - عبدالله الدوسري - 01-06-18 كود : Dim psi As New ProcessStartInfo("C:\Users\Abdulla\Desktop\StopSqlServer.bat")إذا كانت العملية تحتاج صلاحيات Administrator استخدم : "psi.Verb = "runas ولكن في هذة الحالة ستظهر رسالة RE: تشغيل ملفات دفعيه فيجول بيسك - wagday - 01-06-18 البرنامج لايحتاج صلاحيات ورراح اجربه الان ولاكن عندي سوال هل سيتم دمج ملف bat مع البرنامج اي اذا اردت نشره انشر البرنامج فقط من دون ملف bat RE: تشغيل ملفات دفعيه فيجول بيسك - عبدالله الدوسري - 01-06-18 بهذة الطريقة , فقط قم بحفظ النص الموجود داخل الملف bat في إعدادات المشروع أو حتى في متغير نصي . وعندما تريد تنفيذة . استخدم هذا الكود : كود : Dim BatString As String = My.Settings.BatStringالأفكار كثيرة , فكر أنت وابدع في الموضوع أو أرفق الملف ظمن ملفات المشروع [attachment=18283] [attachment=18284] RE: تشغيل ملفات دفعيه فيجول بيسك - wagday - 01-06-18 اشكرك اخي [b]عبدالله الدوسري [/b] [b]لتفاعلك معي [/b] [b]ولاكن لا اعرف كيف اضيف الاوامر في اعداد المشروع [/b] [b]هل يوجد شرح او ممكن تخبرني كيف وشكرا لك [/b]
RE: تشغيل ملفات دفعيه فيجول بيسك - عبدالله الدوسري - 01-06-18 إعدادات المشروع إلي هي الـSetting أضف إعداد جديد باسم : MobArLang ونوعة String ومن داخل المشروع تجلب النص بواسطة الأسم من الإعدادات Dim BatString As String = My.Settings.MobArLang [attachment=18285] |