Skip to content

Commit 523df21

Browse files
pscbotpscbot
committed
Initial commit
0 parents  commit 523df21

File tree

6 files changed

+411
-0
lines changed

6 files changed

+411
-0
lines changed

‎.gitattributes‎

Lines changed: 86 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,86 @@
1+
# VB6 source files (show diff + keep CRLF in zip download)
2+
3+
*.bas working-tree-encoding=CP1252 text eol=crlf linguist-language=vb6
4+
*.cls working-tree-encoding=CP1252 text eol=crlf linguist-language=vb6
5+
*.ctl working-tree-encoding=CP1252 text eol=crlf linguist-language=vb6
6+
*.dob working-tree-encoding=CP1252 text eol=crlf linguist-language=vb6
7+
*.dsr working-tree-encoding=CP1252 text eol=crlf linguist-language=vb6
8+
*.frm working-tree-encoding=CP1252 text eol=crlf linguist-language=vb6
9+
*.pag working-tree-encoding=CP1252 text eol=crlf linguist-language=vb6
10+
*.vbg working-tree-encoding=CP1252 text eol=crlf
11+
*.vbl working-tree-encoding=CP1252 text eol=crlf
12+
*.vbp working-tree-encoding=CP1252 text eol=crlf
13+
*.vbr working-tree-encoding=CP1252 text eol=crlf
14+
*.vbw working-tree-encoding=CP1252 text eol=crlf
15+
16+
# Other source files (show diff + LF only in zip download)
17+
18+
*.asm text
19+
*.asp text
20+
*.bat text
21+
*.c text
22+
*.cpp text
23+
*.dsp text
24+
*.dsw text
25+
*.h text
26+
*.idl text
27+
*.java text
28+
*.js text
29+
*.manifest text
30+
*.odl text
31+
*.php text
32+
*.php3 text
33+
*.rc text
34+
*.sln text
35+
*.sql text
36+
*.vb text
37+
*.vbs text
38+
39+
# Binary
40+
41+
*.res binary
42+
*.frx binary
43+
*.ctx binary
44+
*.dsx binary
45+
*.exe binary
46+
*.dll binary
47+
*.ocx binary
48+
*.cmp binary
49+
*.pdb binary
50+
*.tlb binary
51+
*.xls binary
52+
*.doc binary
53+
*.ppt binary
54+
*.xlsx binary
55+
*.docx binary
56+
*.pptx binary
57+
*.chm binary
58+
*.hlp binary
59+
*.jpg binary
60+
*.png binary
61+
*.bmp binary
62+
*.gif binary
63+
*.ico binary
64+
*.zip binary
65+
*.cab binary
66+
*.7z binary
67+
*.gz binary
68+
69+
# Text files but keep as binary (no diff)
70+
71+
# *.cfg text
72+
# *.conf text
73+
# *.csi text
74+
# *.css text
75+
# *.csv text
76+
# *.def text
77+
# *.htm text
78+
# *.html text
79+
# *.inf text
80+
# *.ini text
81+
# *.log text
82+
# *.reg text
83+
# *.rtf text
84+
# *.txt text
85+
# *.url text
86+
# *.xml text

‎.gitignore‎

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,6 @@
1+
*.scc
2+
*.dca
3+
*.oca
4+
*.obj
5+
vb*.tmp
6+
@PSC*

‎README.md‎

Lines changed: 33 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,33 @@
1+
<div align="center">
2+
3+
## website hitter example
4+
5+
6+
</div>
7+
8+
### Description
9+
10+
what this does is loads up a url in multiple browsers and keeps loading them on a set interval to give a website hits.
11+
12+
### More Info
13+
14+
15+
16+
<span> |<span>
17+
--- |---
18+
**Submitted On** |2003-03-17 06:06:16
19+
**By** |[Mr\. Koww](https://github.com/Planet-Source-Code/PSCIndex/blob/master/ByAuthor/mr-koww.md)
20+
**Level** |Beginner
21+
**User Rating** |4.0 (16 globes from 4 users)
22+
**Compatibility** |VB 6\.0
23+
**Category** |[Internet/ HTML](https://github.com/Planet-Source-Code/PSCIndex/blob/master/ByCategory/internet-html__1-34.md)
24+
**World** |[Visual Basic](https://github.com/Planet-Source-Code/PSCIndex/blob/master/ByWorld/visual-basic.md)
25+
**Archive File** |[website\_hi1560903172003\.zip](https://github.com/Planet-Source-Code/mr-koww-website-hitter-example__1-44072/archive/master.zip)
26+
27+
28+
29+
30+
31+
32+
33+

‎example_1/frmmain.frm‎

Lines changed: 256 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,256 @@
1+
VERSION 5.00
2+
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
3+
Begin VB.Form Form1
4+
Caption = "website hitter"
5+
ClientHeight = 3210
6+
ClientLeft = 60
7+
ClientTop = 345
8+
ClientWidth = 5220
9+
ClipControls = 0 'False
10+
LinkTopic = "Form1"
11+
MaxButton = 0 'False
12+
ScaleHeight = 3210
13+
ScaleWidth = 5220
14+
StartUpPosition = 3 'Windows Default
15+
Begin VB.Frame Frame1
16+
Height = 1455
17+
Left = 0
18+
TabIndex = 3
19+
Top = 0
20+
Width = 5175
21+
Begin VB.Timer Timer2
22+
Enabled = 0 'False
23+
Interval = 1000
24+
Left = 960
25+
Top = 1200
26+
End
27+
Begin VB.CommandButton Command2
28+
Caption = "change"
29+
Height = 255
30+
Left = 4200
31+
TabIndex = 9
32+
Top = 600
33+
Width = 855
34+
End
35+
Begin VB.TextBox Text2
36+
Height = 285
37+
Left = 1080
38+
TabIndex = 8
39+
Text = "15000"
40+
Top = 600
41+
Width = 975
42+
End
43+
Begin VB.Timer Timer1
44+
Enabled = 0 'False
45+
Interval = 15000
46+
Left = 0
47+
Top = 1320
48+
End
49+
Begin VB.CommandButton Command1
50+
Caption = "start"
51+
Height = 255
52+
Left = 4200
53+
TabIndex = 6
54+
Top = 240
55+
Width = 855
56+
End
57+
Begin VB.TextBox Text1
58+
Height = 285
59+
Left = 1080
60+
TabIndex = 4
61+
Text = "http://www.domain.com"
62+
Top = 240
63+
Width = 3015
64+
End
65+
Begin VB.Label Label6
66+
BackStyle = 0 'Transparent
67+
Caption = " : :"
68+
Height = 255
69+
Left = 2880
70+
TabIndex = 16
71+
Top = 960
72+
Width = 1095
73+
End
74+
Begin VB.Label lblseconds
75+
Alignment = 1 'Right Justify
76+
Caption = "0"
77+
Height = 255
78+
Left = 3600
79+
TabIndex = 15
80+
Top = 960
81+
Width = 255
82+
End
83+
Begin VB.Label lblminutes
84+
Alignment = 1 'Right Justify
85+
Caption = "0"
86+
Height = 255
87+
Left = 3240
88+
TabIndex = 14
89+
Top = 960
90+
Width = 255
91+
End
92+
Begin VB.Label lblhour
93+
Alignment = 1 'Right Justify
94+
Caption = "0"
95+
Height = 255
96+
Left = 2880
97+
TabIndex = 13
98+
Top = 960
99+
Width = 255
100+
End
101+
Begin VB.Label Label5
102+
Caption = "time:"
103+
Height = 255
104+
Left = 2400
105+
TabIndex = 12
106+
Top = 960
107+
Width = 1215
108+
End
109+
Begin VB.Label lblhits
110+
Alignment = 1 'Right Justify
111+
Caption = "0"
112+
Height = 255
113+
Left = 1080
114+
TabIndex = 11
115+
Top = 960
116+
Width = 1095
117+
End
118+
Begin VB.Label Label3
119+
Caption = "hits:"
120+
Height = 255
121+
Left = 120
122+
TabIndex = 10
123+
Top = 960
124+
Width = 735
125+
End
126+
Begin VB.Label Label2
127+
Caption = "intervals:"
128+
Height = 255
129+
Left = 120
130+
TabIndex = 7
131+
Top = 600
132+
Width = 735
133+
End
134+
Begin VB.Label Label1
135+
Caption = "website url:"
136+
Height = 255
137+
Left = 120
138+
TabIndex = 5
139+
Top = 270
140+
Width = 975
141+
End
142+
End
143+
Begin SHDocVwCtl.WebBrowser WebBrowser3
144+
Height = 1575
145+
Left = 3600
146+
TabIndex = 2
147+
Top = 1560
148+
Width = 1575
149+
ExtentX = 2778
150+
ExtentY = 2778
151+
ViewMode = 0
152+
Offline = 0
153+
Silent = 0
154+
RegisterAsBrowser= 0
155+
RegisterAsDropTarget= 1
156+
AutoArrange = 0 'False
157+
NoClientEdge = 0 'False
158+
AlignLeft = 0 'False
159+
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
160+
Location = ""
161+
End
162+
Begin SHDocVwCtl.WebBrowser WebBrowser2
163+
Height = 1575
164+
Left = 1800
165+
TabIndex = 1
166+
Top = 1560
167+
Width = 1575
168+
ExtentX = 2778
169+
ExtentY = 2778
170+
ViewMode = 0
171+
Offline = 0
172+
Silent = 0
173+
RegisterAsBrowser= 0
174+
RegisterAsDropTarget= 1
175+
AutoArrange = 0 'False
176+
NoClientEdge = 0 'False
177+
AlignLeft = 0 'False
178+
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
179+
Location = ""
180+
End
181+
Begin SHDocVwCtl.WebBrowser WebBrowser1
182+
Height = 1575
183+
Left = 0
184+
TabIndex = 0
185+
Top = 1560
186+
Width = 1575
187+
ExtentX = 2778
188+
ExtentY = 2778
189+
ViewMode = 0
190+
Offline = 0
191+
Silent = 0
192+
RegisterAsBrowser= 0
193+
RegisterAsDropTarget= 1
194+
AutoArrange = 0 'False
195+
NoClientEdge = 0 'False
196+
AlignLeft = 0 'False
197+
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
198+
Location = ""
199+
End
200+
End
201+
Attribute VB_Name = "Form1"
202+
Attribute VB_GlobalNameSpace = False
203+
Attribute VB_Creatable = False
204+
Attribute VB_PredeclaredId = True
205+
Attribute VB_Exposed = False
206+
'this program was written by matthew zalewski aka mr. koww
207+
'all coding copyrighted 2003 matthew zalewski.
208+
'if you use this coding, all i ask is that you give me credit or a link to my site.
209+
'this is my first code ive made for PSC.
210+
'visit my site: http://www.mr-koww.com // haxor elite productions
211+
'-----------------------
212+
'i wrote this so it's pretty simple for beginners.
213+
'i didn't do too much so you wouldn't have to figure out how i did it
214+
'enjoy!
215+
216+
217+
Private Sub Command1_Click()
218+
If Timer1.Enabled = True Then
219+
Timer1.Enabled = False
220+
Timer2.Enabled = False
221+
Command1.Caption = "start"
222+
Else
223+
Timer1.Enabled = True
224+
Timer2.Enabled = True
225+
Command1.Caption = "stop"
226+
End If
227+
End Sub
228+
229+
Private Sub Command2_Click()
230+
'this changes the intervals the sites will be loaded at
231+
'15000 = 15 seconds
232+
Timer1.Interval = Text2
233+
End Sub
234+
235+
Private Sub Timer1_Timer()
236+
'this here will navigate the browser to the url set (text1)
237+
WebBrowser1.Navigate (Text1)
238+
WebBrowser2.Navigate (Text1)
239+
WebBrowser3.Navigate (Text1)
240+
'add 3 (3 browser hits) to the label every time they open
241+
lblhits.Caption = lblhits.Caption + 3
242+
End Sub
243+
244+
Private Sub Timer2_Timer()
245+
lblseconds.Caption = lblseconds.Caption + 1
246+
'when it hits 60 seconds make minutes and a minute
247+
If lblseconds.Caption = "60" Then
248+
lblseconds.Caption = "0"
249+
lblminutes.Caption = lblminutes.Caption + 1
250+
End If
251+
If lblminutes.Caption = "60" Then
252+
'when it hits 60 minutes make hours add an hour
253+
lblminutes.Caption = "0"
254+
lblhours.Caption = lblhours + 1
255+
End If
256+
End Sub

‎example_1/prjhitter‎

24 KB
Binary file not shown.

0 commit comments

Comments
 (0)