remote/FMain.class at main · GearPlot/remote · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
' Gambas class file

' Simple script to control a Roku TV using cURL

Private ipAddress As String

' Set your Roku TV's IP address here
Public Sub Form_Open()

  ipAddress = "192.168.1.205"

End

' Set up shortcut buttons for your favorite app
Public Sub btnOne_Click()

  Shell "curl -s -d '' http://" & ipAddress & ":8060/launch/74519 &" ' The app's Roku ID (find all IDs by running: curl "http://[YOUR-IP]:8060/query/apps")

End

Public Sub btnTwo_Click()

  Shell "curl -s -d '' http://" & ipAddress & ":8060/launch/41468 &"

End

Public Sub btnThree_Click()

  Shell "curl -s -d '' http://" & ipAddress & ":8060/launch/12 &"

End

Public Sub btnFour_Click()

  Shell "curl -s -d '' http://" & ipAddress & ":8060/launch/837 &"

End

Public Sub btnFive_Click()

  Shell "curl -s -d '' http://" & ipAddress & ":8060/launch/2213 &"

End

Public Sub btnSix_Click()

  Shell "curl -s -d '' http://" & ipAddress & ":8060/launch/tvinput.dtv &"

End 'End of shortcut buttons for your favorite app

Public Sub btnHome_Click()

  Shell "curl -s -d '' http://" & ipAddress & ":8060/keypress/Home &"

End

Public Sub btnBack_Click()

  Shell "curl -s -d '' http://" & ipAddress & ":8060/keypress/Back &"

End

Public Sub btnUp_Click()

  Shell "curl -s -d '' http://" & ipAddress & ":8060/keypress/Up &"

End

Public Sub btnDown_Click()

  Shell "curl -s -d '' http://" & ipAddress & ":8060/keypress/Down &"

End

Public Sub btnLeft_Click()

  Shell "curl -s -d '' http://" & ipAddress & ":8060/keypress/Left &"

End

Public Sub btnRight_Click()

  Shell "curl -s -d '' http://" & ipAddress & ":8060/keypress/Right &"

End

Public Sub btnOk_Click()

  Shell "curl -s -d '' http://" & ipAddress & ":8060/keypress/Select &"

End

Public Sub btnVolDn_Click()

  Shell "curl -s -d '' http://" & ipAddress & ":8060/keypress/VolumeDown &"

End

Public Sub btnVolUp_Click()

  Shell "curl -s -d '' http://" & ipAddress & ":8060/keypress/VolumeUp &"

End

Public Sub btnMute_Click()

  Shell "curl -s -d '' http://" & ipAddress & ":8060/keypress/VolumeMute &"

End

Public Sub btnReplay_Click()

  Shell "curl -s -d '' http://" & ipAddress & ":8060/keypress/InstantReplay &"

End

Public Sub btnInfo_Click()

  Shell "curl -s -d '' http://" & ipAddress & ":8060/keypress/Info &"

End

Public Sub btnRW_Click()

  Shell "curl -s -d '' http://" & ipAddress & ":8060/keypress/Rev &"

End

Public Sub btnPlay_Click()

  Shell "curl -s -d '' http://" & ipAddress & ":8060/keypress/Play &"

End

Public Sub btnFF_Click()

  Shell "curl -s -d '' http://" & ipAddress & ":8060/keypress/Fwd &"

End