ScrollKeys
This is a simple demo on how to implement the use of the keyboard's arrows keys to scroll a picture box. It also shows how to set the Max property of the scrollbars in order to work properly.
AI
AIサマリー: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
ソースコード
Upload
Upload
<% Option Explicit %>
<%
Dim url 'The URL to download
Dim sInfo 'string to hold the collected info
Dim sHTML 'String to hold HTML from download
Dim rReg 'var to hold regular expression
Dim objCols 'Object to hold collections from Regular expression
Dim objMatch 'Object for matches
Dim inet 'Object for Inet Control
url = "WhatEverURL"
'Create instance of Inet Control
Set inet = Server.CreateObject("InetCtls.Inet")
'Set the timeout
inet.RequestTimeOut = 20
'Set the URL property of the control
inet.Url = url
'Actually download the file
sHTML = inet.OpenURL()
'Regular expression to find the string stored between
'the tags. This is where information is.
Set rReg = New regexp
'the TagGoesHere and EndTagGoesHere tags below represent
'the tags surrounding the information we want
'these tags can be more complex if required
rReg.Pattern = "TagGoesHere(.*)EndTagGoesHere"
rReg.Global = False
rReg.IgnoreCase = True
'Execute the regular expression on the raw HTML
Set objCols = rReg.Execute( sHTML )
'Step through our matches
For Each objMatch in objCols
sInfo = sInfo & objMatch.Value
Next
'Clean up
Set rWorldPop = Nothing
Set objCols = Nothing
'Strip the TagGoesHere tags off of the info
sInfo = Replace(Replace(sInfo, "TagGoesHere", ""), "EndTagGoesHere", "")
%>
<HTML>
<HEAD>
<TITLE>Web output Stealer</TITLE>
</HEAD>
<BODY>
<P>The output of the page is: <%=sInfo %></P>
</BODY>
</HTML>
Upload
オリジナルのコメント (3)
Wayback Machineから復元