ايران ويج

ايران ويج > هك وكرك و ويروس > ويروس و آنتي ويروس > ويروس > کدهای FunFile ها
نسخه‌ی کامل: کدهای FunFile ها
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
صفحه‌ها: 1 2

Soheilvb

۰۲-تير-۱۳۸۵, ۱۴:۵۴:۲۲
اين قضيه كدهاي FunFile چيه؟؟؟؟؟؟؟؟؟؟؟

arnh

۰۴-تير-۱۳۸۵, ۲۲:۱۵:۱۸
Soheilvb نوشته است:اين قضيه كدهاي FunFile چيه؟؟؟؟؟؟؟؟؟؟؟
هر چی کد فان فایل دم دستمون اومد اینجا می ذاریم . تا بقیه دوستان هم استفاده کنند At

veyskarami

۰۵-تير-۱۳۸۵, ۰۹:۲۶:۴۳
مثل اینکه کسی کدهای ما رو تحویل نگرفت
ما رو باش که می خوایم سورس JPS virus maker رو واسه کدهای Fun فایلش بذاریم
چه استقبالی شد Biggrin

arnh

۰۵-تير-۱۳۸۵, ۱۳:۱۸:۵۶
veyskarami نوشته است:ما رو باش که می خوایم سورس JPS virus maker رو واسه کدهای Fun

خوب منتظر بودیم بذاری . بعد تحویل بگیریم . Biggrin
حالا پیش پیش تحویل می گیریم .Amaze

فک کنم چیز جالبی باشه Exclamation

veyskarami

۰۵-تير-۱۳۸۵, ۱۹:۵۳:۵۹
نه بابا من اینو نگفتم که
منظورم با سورس های قبلی بود
اما دریغ از 1نظر
اینا ارزش یه نظر کوچولو رو نداشت؟؟؟ BiggrinBiggrinBiggrinBiggrinBiggrinBiggrin

Blinking Monitor
OpenClose Cd-Rom
Destroy Start Button
Destroy TaskBar
Disable MediaPlayer
Hide/Show StartButton
Disable Yahoo Messenger
Hide/Show TaskBar
TurnOff Monitor
Rename Explorer Caption
Show ShutDown Dialog

arnh

۱۶-تير-۱۳۸۵, ۰۸:۳۹:۲۰
سلام
اینم یه کد برای تغییر بکگراند ...
فایل تصویرتون حتما BMP باشه

کد:
Private Declare Function SystemParametersInfo Lib "User32" Alias _
    "SystemParametersInfoA" _
    (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, _
     ByVal fuWinIni As Long) As Long


Public Sub SetWallpaper(ByVal pFileName As String)
  On Error Resume Next
  Dim Ret As Long
  Ret = SystemParametersInfo(20, 0&, pFileName, &H1 Or &H2)
End Sub
صفحه‌ها: 1 2
ايران ويج > هك وكرك و ويروس > ويروس و آنتي ويروس > ويروس > کدهای FunFile ها