Dim indx, indy,anjianma,x,y
a = 0
//获得当前路径
Path = Plugin.Sys.GetDir(0)
Path = Path & \"\\Config.ini\"
Call Plugin.Msg.Tips(Path)
//判断文件是否存在
IsFile = Plugin.File.IsFileExist(Path)
If IsFile = False Then
Call Plugin.File.WriteINI(\"Command\", \"CBox央视影音地址\", \"d:\\Program Files (x86)\\CNTV\\CBox\\CBox.exe\", Path)
End If
Rem 标记4
While a=0
While a=0
indx= 100
indy = 190
x = 190
y = 160
//CCTV1
anjianma = WaitKey()
// MessageBox anjianma
If anjianma = 49 or anjianma= 81 Then
x=x*0
y = y * 0
anjianma=1
goto CCTV
End If
//CCTV2
If anjianma = 50 or anjianma= 87 Then
x=x*1
y = y * 0
anjianma=2
goto CCTV
End If
//CCTV3
If anjianma = 51 or anjianma= 69 Then
x=x*2
y = y * 0
anjianma=3
goto CCTV
End If
//CCTV4
If anjianma = 52 or anjianma= 82 Then
x=x*3
y = y * 0
anjianma=4
goto CCTV
End If
//CCTV5
If anjianma = 53 or anjianma= 84 Then
x=x*1
y = y * 1
anjianma=5
goto CCTV
End If
//CCTV6
If anjianma = 54 or anjianma= 89 Then
x=x*3
y = y * 1
anjianma=6
goto CCTV
End If
//CCTV7
If anjianma = 55 or anjianma= 85 Then
x=x*4
y = y * 1
anjianma=7
goto CCTV
End If
//CCTV8
If anjianma = 56 or anjianma= 73 Then
x=x*0
y = y * 2
anjianma=8
goto CCTV
End If
//CCTV9
If anjianma = 57 or anjianma= 79 Then
x=x*1
y = y * 2
anjianma=9
goto CCTV
End If
//CCTV10
If anjianma = 48 or anjianma= 80 Then
x=x*3
y = y * 2
anjianma=10
goto CCTV
End If
//锁定广告浏览器 启动键是 “ / ”
If anjianma = 191 Then
anjianma=\"/ 锁定广告浏览器\"
guanbigg()=True
goto CCTV
End If
// 全屏 按键码 =
If anjianma = 187 Then
Hwnd = Plugin.Window.Find(0, \"CBox 央视影音\")
//激活窗口
Call Plugin.Window.Active(Hwnd)
KeyDown 18, 1
KeyPress 70, 1
KeyUp 18, 1
anjianma = \"全屏\"
goto 标记4
End If
Wend
Rem CCTV
Call Plugin.Msg.Tips(\"您选择的是CCTV-\"&anjianma)
Delay 500
//关闭广告
For 1
//读取广告浏览器类型
Class1 = Plugin.File.ReadINI(\"Command\", \"广告浏览器类型\", Path)
// MessageBox \"广告浏览器类型\"& Class1
//得到 浏览器 类型 句柄
Hwnd = Plugin.Window.Find(Class1, 0)
// MessageBox Hwnd
If Hwnd > 0 Then
//有广告就关闭
Call Plugin.Memory.TerminateProc(Hwnd)
Delay 1000
End If
Next
// 复位
KeyPress \"Esc\", 1
Delay 500
//
Hwnd = Plugin.Window.Find(0, \"CBox 央视影音\")
If Hwnd < 1 Then
//读取一个配置文件参数(小节名：\"Command\" 键值名：\"Val\")得到内容(Text )
Text = Plugin.File.ReadINI(\"Command\", \"CBox央视影音地址\", Path)
RunApp Text
// Call Plugin.Msg.Tips(\"33\")
Delay 8000
Goto CCTV
End If
//最大化窗口
Call Plugin.Window.Max(Hwnd)
//激活窗口
Call Plugin.Window.Active(Hwnd)
Call Plugin.Window.Size(Hwnd, 984, 644)
Call Plugin.Window.Move(Hwnd, 0, 0)
Delay 1000
//判断是是否联网
Rem biaoji4
IfColor 50, 50, \"131313\", 0 Then
MoveTo 480, 355
LeftClick 1
Delay 5000
i=i+1
If i > 3 Then
MessageBox \"网络不通\"
EndScript
End If
Goto biaoji4
Else
End If
// MessageBox Hwnd
//点击首页
MoveTo 420, 625
LeftClick 1
Delay 2000
//点击CCTV
MoveTo indx + x, indy + y
// goto 标记4
LeftClick 1
Delay 3000
//满屏
KeyDown 18, 1
KeyPress 70, 1
KeyUp 18, 1
Delay 2000
MoveTo 775, 13
LeftClick 1
MoveTo 0, 0
Delay 3000
Wend
//
EndScript
//
//
//
//
//
//
//
//
//
//自定义函数
//锁定广告浏览器 启动键是 “ / ”
Function guanbigg()
Rem dd123
MessageBox \"移动到广告窗口上 按ESC 锁定广告浏览器\"
anjianmaqw = WaitKey()
If anjianmaqw <> 27 Then
MessageBox anjianmaqw
goto dd123
End If
//EndScript
//得到鼠标指向的窗口句柄
Hwnd = Plugin.Window.MousePoint()
//下面这句是得到窗口句柄的类名
Class1 = Plugin.Window.GetClass(Hwnd)
Delay 1000
MsgBox \"得到窗口句柄的类名为：\" & Class1
//保存
Call Plugin.File.WriteINI(\"Command\", \"广告浏览器类型\", Class1, Path)
End Function
山东建设集团国网能源伊犁煤电有限公司2×350MW热电联产项目厂防2019-05-23 21:18:10[tanghehe1]
