ผู้เขียน หัวข้อ: VB6 Code สั่งรัน Imacro  (อ่าน 1932 ครั้ง)

0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

ออฟไลน์ Admin

  • Administrator
  • *****
  • กระทู้: 1393
  • Level:
    0%
  • Thank : 61
  • เพศ: ชาย
    • ดูรายละเอียด
    • สะกิดข่าว
VB6 Code สั่งรัน Imacro
« เมื่อ: กุมภาพันธ์ 28, 2012, 12:06:54 pm »
โค๊ด: [Select]
Option Explicit
Dim iim1 As Object
Dim bUseOpenIIM As Boolean
Dim miBrowser As Integer

Private Sub Form_Load()
Set iim1 = CreateObject("imacros")
End Sub

Private Sub Command1_Click()
Dim iret As Long
Dim iplay As Integer
Dim s As String
Dim sCmdLine As String
sCmdLine = ""
iret = iim1.iimInit(sCmdLine)
iret = iim1.iimDisplay("Thaishadow Security & Reverse Engineering") '=ชื่อ ที่เราบันทึกไว้
iret = iim1.iimPlay("Thaishadow Security & Reverse Engineering") ''=ชื่อ ที่เราบันทึกไว้
If iret < 0 Then
End If
iret = iim1.iimExit
End Sub

ที่มา : thd

 
แชร์บทความ...
โค้ดแบบ forum
(BBCode)
โค้ดแบบ site/blog
(HTML)