אז אם גם לכם נמאס ללחץ על עשרות כפתורי Ignore למשחקים ושטויות אחרים (ולא רוצים לחסום את המשתמש עצמו) אתם מוזמנים לנסות את הסקריפט.

קישור לעמוד התסריט ב userscript.org

[ קישור ישיר לסקריפט ]

הפרוייקט הבא… מחיקה מסיבית של חברים מהפייסבוק (לאלו שנתקעו עם 5000 “חברים” שרכשו מהמשחקים וכ”ד)

במהלך גלישה ברשת נתקלתי בסקריפט Javascript שמאפשר להסיר את כל הרשימה של האפליקציות בליחיצה אחת.

אזהרה: הקוד הבא אכן יסיר את כל האפליקציות שלכם מהרשימה !

מצורף בזאת סקריפט קטן שמצאתי ברשת שמאפשר להסיר את כל התוכנות מהרשימה

שלב ראשון

• כנסו לעמוד העריכה של התוכנות  -  http://www.facebook.com/editapps.php?v=allowed

שלב שני

• העתיקו את הקוד הבא והכניסו אותו לשורת הכתובת בדפדפן

javascript:
function postwith (to,p)
{
  var myForm = document.createElement("form");
  myForm.method="post" ; myForm.action = to ;
  for (var k in p)
  {
    var myInput = document.createElement("input") ;
    myInput.setAttribute("name", k) ;
    myInput.setAttribute("value", p[k]);
    myForm.appendChild(myInput) ;
  }
  document.body.appendChild(myForm) ;
  myForm.submit() ;
  document.body.removeChild(myForm) ;
}
function getElementsByClassName(classname, node)
{
  if (!node)
  {
    node = document.getElementsByTagName('body')[0];
  }
  var a = [], re = new RegExp('\\b' + classname + '\\b');
  els = node.getElementsByTagName('*');
  for (var i = 0, j = els.length; i < j; i++)
  {
    if ( re.test(els[i].className) )
    { a.push(els[i]); }
  }
  return a;
}
var arr = [];
els=document.getElementsByClassName('app_row');
arr['fb_dtsg']=document.getElementsByName('fb_dtsg')[0].value;
arr['remove'] = 1;
arr['post_form_id_source']='AsyncRequest';
arr['post_form_id'] = document.getElementById('post_form_id').value;
arr['app_id']=els[0].id.replace("editapps_allowed_","");
arr['__a'] = 1;
for (i=0; i

שלב 3

לחצו על ENTER לאישור הפעולה, הדפדפן עלול להתקע מעט זמן אם יש לכם רשימה ארוכה. פשוט תנו לו את הזמן להסיר את האפליקציות.

מקור: <a href="http://gofedora.com/javascript-remove-facebook-apps-account/">http://gofedora.com/javascript-remove-facebook-apps-account/</a>

למי שלא מכיר Windows 7 מגיע עם תמיכה בשליטה מרחוק, מעין גרסה מסורסת של Terminal Server של 2003. אתם מוגבלים למשתמש אחד וגם אז רק משתמש אחד פעיל שולט על המחשב, ז”א שאם משהו רוצה לקחת שליטה על המחשב הממשק המקומי יבצע ניתוק וכן להפך, אם מישהו משתמש במחשב בשליטה מרחוק ואני מבצע LOGIN קופצת הודעה שמתריעה על כך ואם הוא מאשר אז אני מנתק את אותו משתמש (בדומה ל-XP).

לאחר שידרוג ל-Windows 7 במקום העבודה נאלצתי לחפש כיצד ליישם את הטריק הישן מ-XP גם כאן. הנה תוכנה קטנה שעושה את כל התהליך אוטומטית.

Terminal Server Patch

הפאטצ’ הנ”ל יאפשר להשתמש ב-2 או יותר חשבונות על מחשב עם Windows 7 Pro. את הפאטצ’ צריך להריץ דרך חשבון משתמש עם הרשאות ניהוליות\אדמין.

להורדת הקובץ: Multi-RDP Connection for Windows 7

זה התחיל מסלידה מהמשחק, והתגלגל לניסוי, ואחריו קריאת אתגר, והיום זה כבר הפך לפרוייקט צדדי שאני נהנה לצפות בו מהצד.

למי שלא מכיר או לא יודע על מה מדובר, Farmvilla הוא משחק דפדפן די מוכר ברשת החברתית Facebook. אחיין שלי הצליח לשכנע אותי לנסות את המשחק, ואני כהרגלי משתעמם די מהר מפעולות שחוזרות על עצמם.

אחרי תקופה קצרה עם המשחק הזה, מצאתי את עצמי עושה חישובים כמו חישוב נצילות ובאיזה יבולים כדאי להשקיע, בונה טבלות ב-EXCEL וחושב כבר להעסיק עובדים שיעשו את העבודה השחורה בשבילי. ואז ראיתי את הניגודיות שעל מנת להרוויח במשחק אני צריך דווקא להשקיע ביבול הזול יותר שגודל מהר, מאשר מהיבול היקר ואיטי. אך אליה וקוץ בה, יבול מהיר גם מתקלקל מהר יותר אם לא קוצרים אותו בזמן, מה שמחייב להיות מול המחשב בזמן הקציר.

ואז נדלקה הנורה, להעסיק את העובד הטוב בעולם למלאכה…

מי יכול לעשות את העבודה המחזורית והמשעממת הזאת יותר טוב מתוכנית קטנה ושדונית, שכל מטרה יצירת היא לעשות את אותה עבודה שוב ושוב…

אחרי כמה דקות של חשיבה, ושירבוטים הגעתי לתבנית שבא אני הולך להפעיל את התוכנית הקטנה שלי.

• יצרתי שדה מלבני בשביל פשטות הפעולה של הסקריפט
• את החקלאי נעלתי במרכז השדה כדי לזרז את כל הפעולות
• בגלל חוסר העקביות של ההודעות הקופצות – אני מבצע כל פעולה בנפרד (קצירה \ חרישה \ וזירעה מחדש)

מקווה שזה יעזור למשהו, ואשמח לקבל הצעות לשיפור ולראות מה אחרים יעשו עם הרעיון.

הקוד (נכתב ב-AutoIT)

$ZOOM_X = 950 ;
$ZOOM_Y = 686 ;
; Press Esc to terminate scrip
HotKeySet("{ESC}", "Terminate")
Func Terminate()
Exit 0
EndFunc
$speed = 50
HotKeySet("{UP}", "SpeedUp")
Func SpeedUp()
$speed = $speed + 10
EndFunc
HotKeySet("{DOWN}", "SpeedDown")
Func SpeedDown()
if $speed >= 10 Then
$speed = $speed - 10
EndIf
EndFunc
$SKIP = 0
HotKeySet("{RIGHT}", "Skip")
Func Skip()
$SKIP = $SKIP + 1
EndFunc
WinWaitActive("FarmVille")
MouseClick("left", $ZOOM_X, $ZOOM_Y, 3, 1) ; Click to zoom
$FULL_X = $ZOOM_X+30
$FULL_Y = $ZOOM_Y
MouseClick("left", $FULL_X, $FULL_Y, 1, 0)
Sleep(2000)
$START_X = 195 ;
$START_Y = 456 ;
$SIZE = 22 ; Rabin
$DX = 24.75
$DY = 12.063
For $MORE_WORK=1 To 1
For $J = 1 To $SIZE
$X = $START_X
$Y = $START_Y
For $I = 1 To $SIZE
If (($J == Round($SIZE/2)+1) AND ($I == Round($SIZE/2))) Then
$X+=$DX
$Y+=$DY
ContinueLoop(1)
Else
If ($J >= $SKIP) Then ; skip rows
MouseClick("left", $X, $Y, 1, 0)
sleep($speed)
endif
EndIf
$X+=$DX
$Y+=$DY
Next
$START_X += $DX
$START_Y -= $DY
Next
Next ; MORE_WORK
;MsgBox(0, "Done", ":)")

השלב הבא אחרי שקיבלת את ההודעה שהתוכנה לא מגיבה היא תמיד פתיחת מנהל המשימות של Windows, על מנת להרוג את התהליך בכוח. נכון שאין דבר רע בשיטה הזאת, אבל יש לה חסרונות, מנהל המשימות בעצמו צורך הרבה משאבים, ואתם עלולים לחכות הרבה זמן עד שהוא יעלה. כמו כן תמיד היה לי מוטו בעבודה עם מחשבים, "אם אתה עושה את התהליך יותר מפעם אחת, אז תהפוך את התהליך לאוטומטי". אז למה לא להרוג את התהליך אוטומטית ברגע שאתם רואים שהוא לא מגיב?

כמו בלינוקס שיש להם את התוכנית x/kill ו-killall בשביל לסגור בכוח אפליקציות בעיתיות, גם ל-Windows יש תוכנית בשורת הפקודה שמאפשרת "להרוג" תהליכים בעייתים.

• שלב ראשון יהיה ליצור קיצור דרך.
• הזינו את הפקודה הבא בתור הפקודה להפעלה של הקיצור דרך:

taskkill.exe /f /fi “status eq not responding”

• תנו לקיצור דרך שם הולם.

כעת נשאר לכם רק לחכות ששוב תקבלו חלון או אפליקציה שלא תגיב, ותריצו את הקיצור דרך. למי שאוהב לקצר עוד יותר, אפשר להוסיף מקש קיצור להפעלת הקיצור דרך ובכך לייעל את התהליך עוד יותר.

אז מה עשינו בדיוק ?

יצרנו קיצור דרך לפקודה taskkill. עם הפרמטרים F שמציין להיות נוקשה בסגירה ולא סתם לנסות לסגור את התוכנית, והפרמטר FI שמשמש אותו להגדיר את הפילטר ובעצם מחזיר לנו את כל התוכנות שסטאטוס הפעולה שלהם הוא "not responding".

בעזרת שינוים קלים ב-Registry ניתן להגדיר את המיקום אליהם התקיות הלאה יצביעו, ובעזרת סקריפט מוכן עבור הנושא הזה, השינוי הרבה יותר קל.

מדובר בסקריפטים של VBS מבית היוצר של kellys-korner-xp.com שאתם אולי מכירים עבור הסקריט הידוע שלו עבור איפוס סרגל המשימוש.

• סקריפט אחד עבור שינוי תקיית המוזיקה
• סקריפט שני עבור שינוי תקיית התמונות

הורידו אתה הקבצים והריצו אותם, בחרו את התיקיה אליה אתם רוצים לשייך את הקיצור דרך (אפילו כונני רשת) והתנתקו מהמחשב והתחברו שוב על מנת שהשינוים יכנסו לתוקף (אני אישית מאתחל את הפרוסס של Explorer.exe).

לא הרבה מכירים את הקיצור דרך שמכניס את המחשב למצב המתנה\שינה (צריכת חשמל מינמלית). נכון שאפשר ליישם את השיטה בדרך הפשוטה של Windows דרך ממשק ניהול צריכת חשמל, ושם לקבוע איזו פעולה תכניס את המחשב למצב שינה. אבל השיטה הזאת מאפשרת לנצל את הקיצור דרך ולתזמן מתי המחשב יכנס למצב המתנה לפי התנאים שלנו ולאו דווקא ע”י לחיצת מקש או סגירת המסך של הנייד.

צרו קיצור דרך לפקודה הבא:

rundll32.exe PowrProf.dll, SetSuspendState

ותנו לו שם יפה, כמו Go To Sleep, ויש לכם קיצור דרך למצב שינה

לדוגמא

1. צרו קיצור דרך חדש על שולחן העבודה שלכם
   



2. הזינו את הפקודה הנ”ל בשורת הפקודה
   



3. מאפיני הקיצור דרך צריכים להראות כמו בתמונה: 
   

קיצורים שימושים אחרים:

כיבוי המחשב

Shutdown.exe -f -s –t 10

אתחול המחשב

Shutdown.exe -f –r –t 10

ביטול פעולת הכיבוי לפקודות הנ”ל

Shutdown.exe -a

נעילת המחשב

Rundll32.exe User32.dll,LockWorkStation

כל פעם שאני עובד על מחשבים של אנשים אחרים, אני משנה את ההגדרות של תצוגת קבצים – להצגת קבצים מוסתרים כולל קבצי מערכת וגם הצגת סיומות של הקבצים. פשוט לא נראה לי טבעי לעבוד בלי לדעת מה מתחבא לך מתחת למכסה. מצד שני להרבה משתמשים ביתים זה מפריע ולא נחוץ האמת ותמיד צריך להחזיר את ההגדרות חזרה לברירית המחדל שלהם.

אז הנה דרך קלה לבצע את השנוי והחזרת והחזרת הערכים חזרה בלחיצה אחת (או שתיים )

העתיקו את קטע הקוד הבא לתוכנה כמו כתבן (וורד לא מומלץ!) ושמרו את הקובץ כמסמך עם סיומת VBS

Set sh = CreateObject(“WScript.Shell”)
theKey = “HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden”
setHidden = sh.RegRead(theKey)
If setHidden = 1 Then
setHidden = 0
MsgBox “System and hidden files will no longer appear in Explorer.”,64,”Hidden File Exchange”
Else
setHidden = 1
MsgBox “System and hidden files will appear in Explorer.”,64,”Hidden File Exchange”
End If
sh.RegWrite theKey,setHidden,”REG_DWORD”
Set sh = Nothing

show_hide_hidden_files.vbs