皮皮网

1.Դ?源码?4095
2.世界编程大赛第一名写的程序

Դ??4095

       '你把下面的代码保存为Form1.frm，然后双击打开该文件，源码简约网站源码后台运行后按提示即可看到结果。源码源码扫描工具

       '呵呵，源码闲鱼网源码够详细了，源码提货系统源码再不会我也没办法了。源码短链源码

       '====文件Form1.frm====

       VERSION 5.

       Begin VB.Form Form1

        Caption = "Form1"

        ClientHeight =

        ClientLeft =

        ClientTop =

        ClientWidth =

        LinkTopic = "Form1"

        ScaleHeight =

        ScaleWidth =

        StartUpPosition = 3 '窗口缺省

        Begin VB.TextBox Text2

        Height =

        Left =

        MultiLine = -1 'True

        ScrollBars = 2 'Vertical

        TabIndex = 2

        Top =

        Width =

        End

        Begin VB.TextBox Text1

        Height =

        Left =

        TabIndex = 1

        Text = "我的源码家"

        Top =

        Width =

        End

        Begin VB.CommandButton Command1

        Caption = "获取HTML源码"

        Height =

        Left =

        TabIndex = 0

        Top =

        Width =

        End

        Begin VB.Label Label2

        Caption = "注意：获取源码之前必须先用IE打开网址，然后输入窗口标题关键字。源码如www..com的源码标题关键字是：我的家"

        Height =

        Left =

        TabIndex = 4

        Top =

        Width =

        End

        Begin VB.Label Label1

        Caption = "请输入IE窗口标题："

        Height =

        Left =

        TabIndex = 3

        Top =

        Width =

        End

       End

       Attribute VB_Name = "Form1"

       Attribute VB_GlobalNameSpace = False

       Attribute VB_Creatable = False

       Attribute VB_PredeclaredId = True

       Attribute VB_Exposed = False

       Option Explicit

       Function GetIeHtml(IeTitle As String) As String

       Dim oShellApp: Set oShellApp = CreateObject("Shell.Application")

       Dim oShellAppWindows: Set oShellAppWindows = oShellApp.Windows

       Dim owin

       '获取弹出的IE窗口

       For Each owin In oShellAppWindows '获取弹出的IE窗口

       If LCase(TypeName(owin.Document)) = "htmldocument" And _

       InStr(1, owin.LocationName, IeTitle, vbTextCompare) > 0 Then '如果找到符合条件的IE窗口

       GetIeHtml = owin.Document.activeElement.Document.documentElement.innerHTML '此句可获得完整html代码

       GoTo Mend '退出

       End If

       Next

       Mend:

       Set oShellAppWindows = Nothing

       Set oShellApp = Nothing

       Set owin = Nothing

       End Function

       Private Sub Command1_Click()

       Dim S As String

       S = GetIeHtml(Text1.Text) '表示获得标题含有"我的家"的html代码

       Text2.Text = S

       End Sub

       Private Sub Form_Load()

       'Shell "explorer.exe ""/""", vbNormalNoFocus

       End Sub

世界编程大赛第一名写的程序

       ã€€ã€€ä½œå“åå­—：   OMNISCEN

       ã€€ã€€è¿è¡Œå¹³å° : 位MS-DOS【该程序只能在位XP以前的系统下运行!】

       ã€€ã€€ä½œå“ç±»åž‹ : 4k

       ã€€ã€€å‘布聚会 : Mekka & Symposium

       ã€€ã€€è£èŽ·Mekka 4K-Intro Compo奖项

       ã€€ã€€åˆ¶ä½œäººå‘˜: Pinker (程序\coding) | Nyphton (声音\Music)

       ã€€ã€€ä»–的源程序是位的机器码，只有4KB，程序全长字节，其中包含字节的自解压程序(ç±»RAR压缩)，未解压的程序长字节。三维场景包含个立方体，个面，个点，个不同的*的纹理。

       ã€€ã€€å¦‚果你想运行只能在位系统下利用debug运行，但位系统没有debug，所以无法运行，还有win7的debug貌似不支持全屏运行(准确的说，是直接提示不能全屏然后闪退！)，所以……该程序只能在位XP以前的系统下运行啊。

       ã€€ã€€å› ä¸ºç”Ÿæˆçš„COM文件需要位系统的支持，所以我是写成批处理了，这样就能用位系统运行啦。

       ã€€ã€€åŽ‹ç¼©åŒ…里有2个，那个小的是用WINRAR压缩的，不过还是没人家的源程序小，一般正版的XP系统都自带WINRAR软件的(win7以上不自带)，万一不能运行，那个大的是源代码，你可以右击选“属性”→“编辑”，查看源代码的。

       ã€€ã€€ã€€ã€€