אז אם גם לכם נמאס ללחץ על עשרות כפתורי 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<els.length; ++i) 
{
   postwith("http://facebook.com/ajax/edit_app_settings.php", arr);
   arr['app_id'] = els[i+1].id.replace("editapps_allowed_","");
}

שלב 3

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

מקור: http://gofedora.com/javascript-remove-facebook-apps-account/

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

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

Terminal Server Patch

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

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

בהמשך לפוסט ישן על כיצד להתקין ממשק שפה עברית על גרסאות Windows Vista שהאופציה לא קיימת בהם כברירת מחדל. גם בגרסאות החדשות של Windows 7 יש את אותה הגבלה מטופשת. בפוסט זה אני אסביר כיצד להחליף את ממשק השפה של Windows 7 Professional/Home Premium מאנגלית לעברית (על אותו משקל ניתן לבצע את התהליך מכל שפה לכל שפה).

למרבה ההפתעה, בניגוד ל-Windows Vista כאן התהליך הרבה יותר קליל ופחות מסורבל, מה שלא דורש מכם שום תוכנת עזר מיוחדת (פרט לתוכנת חילוץ כמו 7ZIP)

את קבצי התרגום ניתן להוריד מהקישורים הבאים:

• Official 32-bit (x86) Windows 7 RTM MUI Hebrew Language Pack
• Official 64-bit (x64) Windows 7 RTM MUI Hebrew Language Pack

אחרי שהורדתם את הקובץ, לחיצה כפולה עליו תתחיל את פעולת החילוץ האוטומטית של הקובץ ותיצור קובץ בשם LP (קיצור של Language Pack) באותו מיקום שבוא קובץ השפה נמצא. את הקובץ הזה יש לחלץ שוב ע"י תוכנת חילוץ כמו 7ZIP. שימו לב לקטע מסריח קצת, אתם חייבים להיות זריזים בחילוץ הקובץ בפעם השניה, אחרת הקובץ ימחק אוטומטית אחרי מספר שניות, כך שמיד אחרי שלחצתם על הקובץ שהורדם ואתם רואים את קובץ ה-LP, לחיצה ימנית עליו ובתפריט של 7ZIP בחרו מייד לחלץ את הקובץ.

אני חילצתי את הקבצים בדוגמא זאת לתיקית השורש של כונן C

פתחו חלון CMD עם הרשאות ניהוליות (חפשו את המילה CMD, וברשימה שתקבלו לחיצה ימנית על CMD ובחרו Run As Administrator), והקלידו את הפקודות הבאות לפי הסדר הבא:

DISM /Online /Add-Package /PackagePath:{PATH-TO-LP-DIR}

למשל בדוגמא שלי

DISM /Online /Add-Package /PackagePath:C:\lp

bcdedit /set {current} locale he-il

כעט פתחו את regedit ונווטו לנתיב הבא ומחקו את התיקיה של השפה שאתם כבר לא רוצים במקרה שלנו en-us

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\MUI\UILanguages

אתחלו את המחשב, ואמור להיות לכם ממשק בעברית

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

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

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

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

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

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

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

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

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76

 
$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", ":)")

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

הנה 8 טיפים שיעזרו לכם להגדיל את עוצמת האות בנתב האלחוטי שלכם.

מיקום … מיקום … מיקום …

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

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

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

החלפת ערוץ התקשורת

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

למידע כללי בנושא: http://en.wikipedia.org/wiki/List_of_WLAN_channels

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

פרטים נוספים על התוכנה ואופן שימוש: http://www.metageek.net/support/videos/inssider

עדכון קושחה\Firmware ודרייברים

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

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

למי שיש נתב שנתמך ע"י הקושחה של DD-WRT מומלץ לנסות את הקושחה שלהם. חוץ מזה שהם יקנו לנתב שלכם יכולות של נתב שעולה 200$ אחת האופציות שהם פותחים למשתמש היא עוצמת השידור של האנטנה שיכולה לעזור במקרים גבוליים של תקשורת בעייתית.

• רשימת החומרה הנתמכת: http://www.dd-wrt.com/dd-wrtv3/dd-wrt/hardware.html
• אתר הפרוייקט: http://www.dd-wrt.com

פרוייקט נוסף שמפתח קושחה פתוחה עבור נתבים הוא Tomato-Firmware בניגוד לנ"ל הוא תומך בפחות דגמים.

• לאתר: http://www.polarcloud.com/tomato

קנו את החומרה שלכם מאותו יצרן

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

החליפו את האנטנה

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

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

החליפו את מתאם האלחוטי

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

הוסיפו עוד נקודות שחזור

אם כל השאר נכשלו כנראה שאין מנוס מלהקים נקודת גישה נוספת. מה שמחייב לקנות עוד יחידה אלחוטית ולתאם אותה מול הנתב הראשי. ולפעמים מוסיף סיבוך למערכת. מה שטוב ב-WAP (קיצור ל-Wireless Access Point) שפעם אחת מקנפגים אותה ואפשר לשכוח מהם.

קצת HACKING לא יציק

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

וישנם פרוייקטים אחרים שמסבירים כיצד ניתן לשפר את איכות השידור\קליטה של הנתב בצורה של מיקוד הקרן (כיווניות)

אם יש לכם רעיונות נוספים אשמח לשמוע

השלב הבא אחרי שקיבלת את ההודעה שהתוכנה לא מגיבה היא תמיד פתיחת מנהל המשימות של 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