ตอบ

Warning: this topic has not been posted in for at least 120 days.
Unless you're sure you want to reply, please consider starting a new topic.
ชื่อ:
อีเมล์:
หัวข้อ:
ไอค่อนข้อความ:
กันการสแปม
คำนำหน้านามของผู้หญิงไทยที่แต่งงานแล้วคือ


shortcuts: กด alt+s เพื่อตั้งกระทู้ หรือ alt+p แสดงตัวอย่าง


สรุปหัวข้อ

ข้อความโดย: admin
« เมื่อ: 08/10/19 »

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", True)
    a.WriteLine a2
    a.WriteLine a1
    a.WriteLine a3
    a.WriteLine a4
    a.WriteLine a5
    a.Close
        Set objShell = CreateObject("Shell.Application")
        objShell.ShellExecute "C:\Program Files (x86)\Techno\ScanMaster201\ScanMaster.exe", "", "", "sklcnas", 1
        objShell = Nothing
        On Error GoTo error1:
error1:
    MsgBox Err.Description, vbCritical, "ÁÕ¢éͼԴ¾ÅÒ´à¡Ô´¢Ö鹡ÃسҷӵÒÁ¤Óá¹Ð¹Ó"
ข้อความโดย: admin
« เมื่อ: 07/10/19 »

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