首页
社区
课程
招聘
[旧帖] [求助]在软件中加入自动转向网址的代码怎么写 0.00雪花
发表于: 2009-4-8 20:13 3893

[旧帖] [求助]在软件中加入自动转向网址的代码怎么写 0.00雪花

2009-4-8 20:13
3893
请问高手在软件中加入自动转向网址的代码该怎么写
object frmPassForm: TfrmPassForm
  Left = 192
  Top = 107
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = '验证窗口'
  ClientHeight = 229
  ClientWidth = 261
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 8
    Top = 152
    Width = 195
    Height = 13
    Caption = '请将上图中的字符填写到下面的框中:'
  end
  object lbPass: TLabel
    Left = 8
    Top = 136
    Width = 171
    Height = 13
    Caption = '状态:验证码图片获取中,请稍候...'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 8
    Top = 168
    Width = 157
    Height = 13
    Caption = '注:字母范围 A-F , 数字范围 0-9'
  end
  object btnInput: TButton
    Left = 176
    Top = 192
    Width = 75
    Height = 25
    Caption = '提交'
    ModalResult = 1
    TabOrder = 0
  end
  object edPassword: TEdit
    Left = 24
    Top = 194
    Width = 121
    Height = 21
    Color = clRed
    TabOrder = 1
  end
  object IEPass: TWebBrowser
    Left = 6
    Top = 3
    Width = 249
    Height = 105
    TabOrder = 2
    OnDownloadBegin = IEPassDownloadBegin
    OnDownloadComplete = IEPassDownloadComplete
    OnDocumentComplete = IEPassDocumentComplete
    ControlData = {
      4C000000BC190000DA0A00000000000000000000000000000000000000000000
      000000004C000000000000000000000001000000E0D057007335CF11AE690800
      2B2E126208000000000000004C0000000114020000000000C000000000000046
      8000000000000000000000000000000000000000000000000000000000000000
      00000000000000000100000000000000000000000000000000000000}
  end
  object btnChg: TButton
    Left = 3
    Top = 111
    Width = 250
    Height = 19
    Caption = '如果看不清,请点击这里换一张验证图'
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuHighlight
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = btnChgClick
  end
end

[培训]《安卓高级研修班(网课)》月薪三万计划,掌握调试、分析还原ollvm、vmp的方法,定制art虚拟机自动化脱壳的方法

收藏
免费 0
支持
分享
最新回复 (4)
雪    币: 144
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
2
楼主说的VC中马?~~那调用ExecuteShell就行了阿
2009-4-8 21:28
0
雪    币: 144
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
3
上面打错了~~是ShellExecute(this->m_hWnd,"open","notepad.exe", "内容","",SW_SHOW );
2009-4-8 21:36
0
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
4
我的软件没有中马,只是想在软件加入自动转向我的网址的代码怎么写,即网友打开软件就可以到达我的网站!
2009-4-9 09:41
0
雪    币: 2384
活跃值: (766)
能力值: (RANK:410 )
在线值:
发帖
回帖
粉丝
5
如果只是弹出IE网页的形式,只需像3楼那样调用SellExecute函数就可以办理(要打开软件就启动该代码可以将代码写在窗口创建消息中)
如果你要将网页显示在自己的程序中,如果你是用Delphi或VB那样可以所见即所得的编程环境,可以使用WebBrowser控件在自己的程序中直接显示网页。
2009-4-9 10:49
0
游客
登录 | 注册 方可回帖
返回
//