delphi 如何实现网站刷IP的操作
delphi 如何实现网站刷IP的操作
var
Form1: TForm1;
Nid:integer ;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
if opendialog1.Execute then
memo1.Lines.LoadfromFile(opendialog1.FileName);
begin
if memo1.Lines[0]='' then
showmessage('请添加代理地址')
else
button3.Click;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate(edit1.Text);
application.ProcessMessages;
end;
procedure TForm1.Button4Click(Sender: TObject);
var reg: Tregistry;
begin
timer1.Enabled:=false;
if edit1.Text <> '' then
begin//注册表添加代理地址
button3.Click;
webbrowser1.Navigate(edit1.Text);
application.ProcessMessages;
reg:=Tregistry.Create;
try
reg.RootKey := HKEY_CURRENT_USER;
if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings', True) then
begin
reg.Writestring('ProxyServer', edit2.Text);
reg.WriteInteger('ProxyEnable', 1 );
end
finally
reg.CloseKey;
reg.free;
timer1.Interval:=strtoint(edit3.Text);
timer1.Enabled:=true;
end;
end
else
b
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
这个是拦截按键消息并测试是否为ENTER键。
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
这语言好难啊 学delphi简单 哭
一个dll 和一个 指针函数调用 搞了我2礼拜 还是在我有delphi基础的情况下 哭
难度 比 delphi 高很多。继续努力学啊。
好像也并不比delphi难多少吧
主要代码 不直观了� ......
嘿嘿，又来麻烦各位大牛了！我想了解我在代码的事件属性里面看不到有什么事件，还有在时间控件里面的Enabled的属性是False，这下蒙了，不知道程序运行之后执行的是那条命令，希望各位大牛赐教啦！
谢谢！
我这下 ......
昨晚在Delphi数据库查询中遇到了一个疑惑。代码如下：
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
