يوجد برنامج لعمل تنصيب تلقائي اسمه AutoIt تعمله و هو سهل
و توجد برامج اساسية جدا مثال ونرار و اوفيس فصمم برنامجا خاصا لتشغيل الملف المنشأ بواسطة AutoIt
و برنامج اخر تعمل لها قاعدة بيانات و تشغل المطلوب بالكود
في القسم العام
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Wait(zSecond As Integer)
Dim StartTime As Single
StartTime = Timer
Do While Int(Timer - StartTime) < zSecond
DoEvents
Loop
End Sub
و في كوماند :
ShellExecute Me.hWnd, "open", Text1.Text, &O0, &O0, &O1
Wait 12
حيث التكست 1 هي للمسار المطلوب
مثلا بعد استخراج المسار من قاعدة البيانات
Wait هذا للانتظار قبل الانتقال الى عملية التنصيب التالية
و توجد برامج اساسية جدا مثال ونرار و اوفيس فصمم برنامجا خاصا لتشغيل الملف المنشأ بواسطة AutoIt
و برنامج اخر تعمل لها قاعدة بيانات و تشغل المطلوب بالكود
في القسم العام
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Wait(zSecond As Integer)
Dim StartTime As Single
StartTime = Timer
Do While Int(Timer - StartTime) < zSecond
DoEvents
Loop
End Sub
و في كوماند :
ShellExecute Me.hWnd, "open", Text1.Text, &O0, &O0, &O1
Wait 12
حيث التكست 1 هي للمسار المطلوب
مثلا بعد استخراج المسار من قاعدة البيانات
Wait هذا للانتظار قبل الانتقال الى عملية التنصيب التالية

