Private Sub Command101_Click()
Dim a1, a2, a3, a4, a5 As String
a1 = BB
a2 = rubfongmainkey
a3 = koha
a4 = jod
a5 = jumloe
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("D:\getcasenumber.txt", Ture)
a.WriteLine a2
a.WriteLine a1
a.WriteLine a3
a.WriteLine a4
a.WriteLine a5
a.Close
Dim retval
On Error GoTo error1:
reval = Shell("C:\Program Files (x86)\Techno\ScanMaster201\scanmaster.exe", vbNormalFocus)
Exit Sub
error1:
MsgBox "ÁÕ¢éͼԴ¾ÅÒ´à¡Ô´¢Öé¹ äÁèÁÕÊÔ·¸Ôà¢Õ¹ Drive ËÃ×Í äÁèä´éµÔ´µÑé§â»Ãá¡ÃÁÊӹǹÍÔàÅç¡·Ã͹ԡÊì!", vbCritical, ",ÁÕ¢éͼԴ¾ÅÒ´à¡Ô´¢Ö鹡ÃسҷӵÒÁ¤Óá¹Ð¹Ó."
End Sub
End Sub
Private Sub Command143_Click()
If Combo141 = "" Or IsNull(Combo141) = True Then
MsgBox "µéͧàÅ×Í¡¼Ùéà¡ÕèÂÇ¢éͧ㹤´Õ", vbDefaultButton1, "¤Óá¹Ð¹Ó"
Exit Sub
Else
Dim strList, strlist2, strlist3 As String
strList = rubfongmainkey
strlist2 = jod & "__" & jumloe
strlist3 = Combo141
Open "C:\windows\genf.txt" For Output As #1
Write #1, strList
Write #1, strlist2
Write #1, strlist3
Close #1
End If
Dim retval
On Error GoTo error1:
retval = Shell("C:\Program Files\CheckPerson\My Product Name\checkperson.exe ", vbNormalFocus)
Exit Sub
error1:
MsgBox "ÁÕ¢éͼԴ¾ÅÒ´à¡Ô´¢Öé¹ äÁèä´éŧâ»Ãá¡ÃÁÊ᡹ÅÒ¹ÔéÇÁ×Í", vbCritical, "ÁÕ¢éͼԴ¾ÅÒ´à¡Ô´¢Ö鹡ÃسҷӵÒÁ¤Óá¹Ð¹Ó"
End Sub
