API tools faq
paste
Guest User

Untitled

a guest
Sep 27th, 2011
6,410
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 215.83 KB | None | 0 0
raw download clone embed print report
  1. written by: barski moti
  2.  
  3. about 25% of this book was written by the yotamarker v1 program which was written on vb.net express 2008
  4. by barski moti
  5.  
  6. contact me: http://yotamarker.justforum.net/
  7.  
  8. the following book explains how to use most of the technologies existing in the world at 2011.
  9.  
  10.  
  11. CONTENTS:
  12.  
  13.  
  14. A TECHNIQUE FOR FINDING DATA OR ANSWERS
  15. GOOGLE TECHNIQUES
  16. PC TECHNICIAN
  17. HOW TO MAKE SUBTITLES
  18. STOP PC PROCESS AT STARTUP
  19. KEY CODES
  20. WINDOWS SERVER ADMINISTRATION
  21. BATCH FILE RUN LIST OF COMMANDS.
  22. UPDATE WINDOWS XP
  23. UBUNTU OPERATING SYSTEM
  24. HIDE YOUR IP
  25. YOU CAN UPLOAD AND DOWNLOAD YOUR FILES USING THIS SITES( A BACKUP TECHNIQUE)
  26. CUSTOM RSS FEED
  27. GAMING
  28. VB.NET
  29. PRACTICE BLIND TYPING
  30. VB SPECIAL CODES
  31. VB.NET IMAGE RECOGNITION ( AKA HIGASHI NO EDEN ) VERSION 1
  32. vb.net number to japanese count
  33. HOW TO MAKE A DLL IN VB.NET
  34. MAKE A SETUP WIZARD
  35. DOT NET MICRO FRAMEWORK
  36. SQL
  37. SQL DATABASE AND VB.NET
  38. SQL STORED PROCEDURES
  39. MINNING ACCESS DATABASES WITH VB.NET
  40. E-COMMERCE
  41. ASP.NET
  42. CLOUD COMPUTING
  43. YOUTUBE
  44. HTML (build a website)
  45. CSS (graphics for html)
  46. SEO
  47. VBULLETIN CODES
  48. BLOGGING
  49. MAKE A GIF
  50. HACKING
  51. CRACKING
  52. WORKSHOP SAFETY
  53. CNC SETUP AND OPERATION
  54. A METAL MELTING FURNACE
  55. OSCILLATOR
  56. CIRCUIT BOARD ETCHING
  57. NMOS TRANSISTORS
  58. FLASH MEMORY
  59. MAGNETIC CORE MEMORY
  60. CHARCOAL
  61. SAND TO CHIP
  62. PHOTO ELECTRIC CELL
  63. FOX HOLE RADIO
  64. GLASS
  65. STEEL
  66. ALUMINIUM
  67. GOLD
  68. MAGNEZIUM
  69. TITANIUM
  70. BATTERIES
  71. ALCOHOL:
  72. BIODIESEL
  73. THERMITE:
  74. LEATHER
  75. PAPER
  76. CEMENT
  77. HOW TO MAKE A HUMAN SIZED DOLL
  78. HOLOGRAM
  79. MICROSOFT OFFICE 2003 / 2007/2010 EXCEL
  80. VBA - visual basic for applications (in excel)
  81. MS ACCESS
  82. THE ART OF WAR
  83. ONE ON ONE FIGHTING
  84. NAVIGATION FOR QUERIERS
  85. SOLAR NAVIGATION
  86. japan addresses
  87. HOW TO WRITE A RESUME
  88. How To Do Laundry
  89. PLANTING
  90. POLINATION
  91. FOOD BY SEASONE
  92. CLAY
  93. BAMBOO
  94. RUBBER
  95. GROW POTATOS
  96. HUNTING small animals
  97. MUSHRUMS
  98. FREE REFRIGERATION
  99. DETECTING SPOILED FARM EGGS
  100. WILDERNESS SURVIVAL
  101. GROUNDWATER
  102. CORK
  103. PLUMBING
  104. MANGA
  105. THE ECONOMY
  106. HOW TO DESTROY A COMPANY THAT ANNOYED YOU
  107. UNIVERSAL BUREAUCRACY
  108. UTORRENT
  109. BICYCLE REPAIR
  110. THE PATH FOR TELEPORT (a work in progress)
  111.  
  112.  
  113.  
  114. THERE COMES A TIME WHEN THE KING MUST BECOME THE ROAD WARRIOR.
  115.  
  116. A TECHNIQUE FOR FINDING DATA OR ANSWERS:
  117.  
  118. 1 search engines: google.com, bing.com
  119. to exclude a topic from your search ad -topic
  120. to search a phrase: "phrase of search"
  121.  
  122. 2 forums:
  123. search "topic forum" and ask there
  124.  
  125. 3 chats
  126.  
  127. 4 torrentz and ebooks:
  128. install utorrent, then go to a torrent search engine and search for topic ebook or topic pdf, to work a pdf file you
  129. will need to install adobe pdf
  130.  
  131. 5 file hosting sites: filepump, megaupload, rapidshare, zippyshare, mediafire, zshare, filehost
  132.  
  133. 6 install emule or kazaa or other file sharing program, use it to search and download rare files.
  134.  
  135. 7 http://answers.yahoo.com
  136.  
  137. 8 upload an image to search :
  138. www.tineye.com
  139.  
  140.  
  141. GOOGLE TECHNIQUES
  142.  
  143. 1 a OR b
  144. also : a | b
  145.  
  146. 2 specific word ( word2 | word3 )
  147.  
  148. 3 "look for this phrase"
  149.  
  150. 4 Synonym search looks for words that mean similar things :
  151. ~hi
  152.  
  153. 5 Exclude :
  154. -term -warez -usenext
  155.  
  156. 6 fill in a blank :
  157. hello, how are *
  158.  
  159. 7 Search for a numerical range :
  160. lcd $100..400$
  161.  
  162. 8 filetype search :
  163. bp5 filetype:txt
  164.  
  165. 9 exclude file type : word -filetype:doc
  166.  
  167. 10 search by title :
  168. intitle:alfalfa
  169.  
  170. 11 inutl:japan
  171.  
  172. 12 live webcams
  173. inurl:view/view.shtml
  174.  
  175. 13 find pages Google thinks are related in content :
  176. related:www.anyurl.com
  177.  
  178. 14 Google Directory : a database of handpicked and rated sites :
  179. directory.google.com
  180.  
  181. 16 news.google.com use intext modifier to get text parts
  182. more modifiers : location: source:
  183.  
  184. 17 cache:site_url
  185. search for old site data even if it was deleted
  186.  
  187. 18 add map to the end of your query
  188.  
  189. 19 add &imgtype=face to the end of the returned URL in the location bar, then hit enter to filter out pictures that aren't people
  190.  
  191. 20 stocks: followed by market ticker
  192.  
  193. 21 see what others search for :
  194. www.google.com/zeitgeist or www.google.com/trends
  195.  
  196. 22 more webcam :
  197.  
  198. inurl:indexFrame.shtml Axis
  199. intitle:start inurl:cgistart
  200. intitle:îWJ-NT104 Main Pageî
  201. intitle:snc-z20 inurl:home/
  202. intitle:snc-cs3 inurl:home/
  203. intitle:snc-rz30 inurl:home/
  204. intitle:îToshiba Network Cameraî user login
  205. intitle:îi-Catcher Console ñ Web Monitorî
  206. inurl:/view.shtml
  207. intitle:îLive View / ñ AXISî | inurl:view/view.shtml^
  208. inurl:ViewerFrame?Mode=
  209. inurl:ViewerFrame?Mode=Refresh
  210. inurl:axis-cgi/jpg
  211. inurl:view/index.shtml
  212. inurl:view/view.shtml
  213. liveapplet
  214. intitle:liveapplet
  215. allintitle:îNetwork Camera NetworkCameraî
  216. intitle:axis intitle:îvideo serverî
  217. intitle:liveapplet inurl:LvAppl
  218. intitle:îEvoCamî inurl:îwebcam.htmlî
  219. intitle:îLive NetSnap Cam-Server feedî
  220. intitle:îLive View / ñ AXIS 206Mî
  221. intitle:îLive View / ñ AXIS 206Wî
  222.  
  223. 23 search serial numbers :
  224. product name and 94fbr
  225.  
  226.  
  227. PC TECHNICIAN
  228.  
  229.  
  230. as a pc technician you will need a screw driver with a magnet tip, and disk on key device, pen, pocket book.
  231. HARDWARE:
  232. all repairs are to be done while power is of, and after you touch the floor to discharge static electricity.
  233. all the computers parts connect to its motherboard, replace a part according to:
  234. 1 if pc doesn't turn on replace power supply(connected to the power cord)
  235. 2 noisy fan: replace it
  236. 3 pc stuck at windows load : replace power supply
  237. 4 pc stuck after bios: try to replace memory cards:cards found on middle of mother board
  238. 5 pc crashes during work time: try to replace hard disk: box connected to motherboard by wires
  239. 6 when buying new parts show the salles man the old ones
  240. 7 connect a ups to your power supply to save it from blackouts
  241. 8 when the computer overheats it will beep repeatedly when a big program is run (also when watching movies or
  242. scrolling online), applying thermo paste will reduce the heat and fix this.
  243. the paste costs about 3$, it is a very small syringe
  244. put the paste on the middle of the cpu, below the heat sink (which is below the heatsink fan aka cpu fan)
  245. then return the heat sink over the cpu, and the cpu fan on the heat sink.
  246.  
  247. cd/dvd burner : with a burn software such as nero can burn data to the cd/dvd or burn an iso (by selecting
  248. burn image) as data or auto dvd/cd. a lightscrib will burn special lightscrib dvds with an image printed on
  249. the disk surface.
  250.  
  251. fixes for complex computer problems:
  252. 1 dust can cause unexplained problems, clean the fans with a spray can of pressured air,
  253. 2 computers older than 5 year need the bios battery(round found on motherboard) replaced
  254. 3 computer over beeps at summer: take out cpu cooler walls under fan in middle of motherboard,
  255. smear thermic cream(cost up to 2$) on cpu, return parts
  256.  
  257. cards replace:
  258. sound,video, network cards are place on the edge of the mother board.
  259. check if the problem isn't caused by monitor, speaker, if the problem is not connecting to the internet
  260. call the isp(internet service provider).
  261. 1 to upgrade pc
  262. 2 drivers cd of previous card were lost and pc was formatted with operating system
  263. 3 glitch related to card
  264. if the problem isn't number 2, first try removing card, blowing air on it and in its slut, or at second time
  265. also use an eraser on its contacts before returning it
  266.  
  267.  
  268.  
  269. SOFTWARE:
  270.  
  271. 1 installing windows: the best windows is windows pro sp3, after that windows 7. when pc is turned on,
  272. press del to enter bios, insert win cd, choose startup devices from cd(not hd or hard disk), follow install
  273. wizard, when your finished return to bios, and set startup from HD(hard DISK)
  274.  
  275. 2 install driver from driver cd's that arrive with pc , cards, and devices such as printers, webcams
  276. do not install anything but the drivers from the drivers, choose custom installation
  277.  
  278. 3 call your isp tell them you installed an operating system(OS) and you need a dialer to connect to the internet.
  279.  
  280. 4 get safe surfing from the isp to prevent viruses from sites.
  281.  
  282. 5 search, download and install cccp (combined community codec pack) to be able to play any movie files you have
  283.  
  284. 6 set restore point: start, all programs, accessories, system, tools, system restore. after you create it you
  285. can restore the pc to it's state at the restore point to undo a glitch.
  286.  
  287. 7 safe mode: press f8 when computer boots this will disable the activation of unneeded software like viruses
  288. at start up, so you can restore your system or run antivirus or back up files
  289.  
  290. 8.1 passwording the pc is from: start, control panel, user accounts
  291.  
  292. 8.2 switching user accounts: start, log off
  293.  
  294. 8.3 right click a folder, check encrypt to enable its access by the current user only
  295.  
  296. 9 winrar: a software for encrypting AND unpacking rar files (a stronger version of winzip)
  297.  
  298. 10.1 network setup wizard : connect each pc to a router (via network wire), go to start, control panel,
  299. network connections, set up a home or small office network, follow the wizard to share files and printers.
  300.  
  301. 10.2 share an internet connection: if 1 pc connects to the internet (not via a router, via a adsl modem)
  302. if there are 2 pc's connect them via a crossed wire, >2 pc's connect them via a hum and network cable.
  303. in network connections, share an internet connection, in the wizard mention for each pc if it directly
  304. connects to the modem or not.
  305.  
  306. 10.3 installing a network card: after installing its driver, my network connections, right click local area network
  307. , right click network card, properties, check tcp/ip, go to advanced tab to define firewall.
  308.  
  309. 11 internet data clearing: in the browser, tools, internet options, delete to erase videos watched, cookies(
  310. delete once a month), and you can delete browsing history.
  311.  
  312. 12 CONNECT TO THE INTERNET :
  313.  
  314. router: to connect wirelessly to the router the pc most have usb wifi or built in wifi(for laptops or new pc's)
  315. to define the router after its connected to a pc via network cable, and connected to a modem or if it has a built in modem
  316. . start, run,ipconfig/all then in the browser go to the number in default gateway to define the router and start
  317. surfing.also you can define your router by calling your isp or using its install cd. chose PPoE for adsl connection
  318. or dhcp for cable connection to the internet
  319.  
  320. connecting to the internet can also be done with a netstick (via gsm network) from anywhere, no
  321. router or wifi device needed, you buy the devise and charge it for cash at the computer or cellphone store, then
  322. plug it in the usb . the device is also called : Alcatel X220 USB cellular modem or netonkey
  323.  
  324. 12.2 connect to the internet using a sim card and a laptop
  325. http://www.youtube.com/watch?v=tpzcRZgJeCI
  326.  
  327. connect card, connect to the internet via the appearing icon in the icon tray
  328.  
  329. 13 sharing folders: right click the folder, allow sharing(other pc's in your network can now access the folder via my
  330. network connections, you get all sorts of sharing options. from the sharing pc you can map a folder make it easier
  331. to share by right clicking it.
  332.  
  333. 14 remotely control a pc:right click my computer, remote tab, check allow users...at technician place:
  334. start, all programs, accessories, remote desktop, type client ip.
  335. to get client ip ask him to go to :ipchicken.com and read you the number.
  336. client request for remote assistance: in this way both client and technician have control over the pc:start
  337. , all programs, remote assistance
  338.  
  339. alternatively you can use the program team viewer.
  340.  
  341. 15 software recommendations:
  342. antivirus : kaspersky, nod32, combofix
  343. windows defender
  344. anti-malware : malwarebytes anti-malware and Microsoft Security Essentials
  345. also run,cmd, type netstat -nap if you see 25 your pc is sending spam
  346. for MBR infections : tdsskiller
  347. webbrowser: google chrome, IE8 not IE9
  348. winrar, adobe reader (for reading pdf files), emule(to download rare files), primo pdf to print pdf files
  349. camstudio (to make video of screen capture) "f8" to record and "f9" to stop recording
  350. , speedfan (to get your cpu temperature)
  351. utorrent(to download files)
  352. cccp (to be able to play any movie files)
  353. in yahoomail.com you can open an email account
  354.  
  355. 16 amd processors are better and cheaper then intell, intell will glitch.
  356.  
  357. 17 Scheduled Tasks run a task automatically:
  358. start, all programs, Accessories, system tools, scheduled task, Double-click Add Scheduled Task.
  359. when you browse this is the root for defrag : %systemroot%\system32\defrag.exe
  360. c: is system root. you should defrag at least once a month to speed up your pc.
  361.  
  362. 18 fax :
  363.  
  364. Setting Up and Configuring Windows XP Fax
  365.  
  366. 1 add a modem card, install its drivers cd, connect it to a phone line.
  367. 2 start, Control Panel, Add or Remove Programs, Add/Remove Windows Components, Fax Services check box, next
  368.  
  369. configure the Fax Console:
  370.  
  371. 1 start, all programs ,Accessories, Communications, fax, Fax Console
  372. 2 Tools, Configure Fax, Select Device for Sending or Receiving Faxes page - select your modem
  373. 3 Transmitting Subscriber Identification (TSID) and Called Subscriber Identification (CSID) pages enter your details
  374.  
  375. Sending Faxes from Your Computer
  376.  
  377. 1 On the File menu of the document, click Print (choose the fax)
  378. 2 Telephone numbers must be in the canonical form in which a U.S. number would appear as +1 (646) 888-1111
  379.  
  380. windows 7 homenetworking :
  381.  
  382. 1. In computer 1, click start button and type in "homegroup". Click on "HomeGroup" entry when it shows up.
  383. 2. Click on "Create a HomeGroup" and follow the wizard's instruction.
  384. 3. Write down the password. If you don't like the password that windows automatically generated, you can change it after you have done creating the HomeGroup.
  385. 4. Go to computer 2, click start then type in "homegroup". Click "HomeGroup" when it show up.
  386. 5. Click on join and type in the password (the one you wrote down when you created the homegroup in computer 1)
  387.  
  388. win 7 file sharing via lan router
  389.  
  390. 19 email : yahoomail.com or yahoo.com
  391. switch back to yahoo mail classic
  392. disable java script
  393. Click "Tools".....click "Options"......click "Content"
  394. UN-check/Disable ïenable JavaScriptï
  395. click OK.
  396. log on to your yahoo account
  397. yahoo gives you this message
  398. click on the second link (return to classic
  399. dont forget to
  400. enable javascript later
  401. Click "Tools".....click "Options"......click "Content"
  402. check/enable ïenable JavaScriptï
  403. click OK.
  404.  
  405. 20 FAVORITES : C:\Documents and Settings\computername\Favorites
  406. save delete all from there
  407.  
  408. 21 vmware, virtualbox (are programs) = virtual additional computer
  409.  
  410.  
  411. HOW TO MAKE SUBTITLES
  412.  
  413.  
  414. in the same folder, videoname.avi videoname.srt (from .txt)
  415. in srt type :
  416. 0
  417. 00:00:00 --> 00:00:30
  418. first line
  419.  
  420. 1
  421. 00:00 56 --> 00:01:10
  422. bla bla
  423.  
  424. and so on
  425.  
  426.  
  427. STOP PC PROCESS AT STARTUP
  428.  
  429.  
  430. Go in Control Panel -> Administrative Tool -> Services. Find the two corresponding service and set their startup type to
  431. Manual
  432.  
  433.  
  434. KEY CODES
  435.  
  436.  
  437. ctrl + f - find (text or words in files with text)
  438. ctrl + A - mark all text or files
  439. ctrl + Z - undo text changes
  440. ctrl + C - copy marked text or files
  441. ctrl + V - paste marked text or files
  442. ctrl + X - cut marked text or files
  443. ctrl + mouse left click - mark each file
  444. shift + delete key - delete files marked
  445. shift + left right arrow keys : mark text
  446. windows key + L - lock windows, then you can reenter with the password set in the user accounts
  447. alt + F4 key - exit program, or shut down pc
  448. alt + ctrl + DELETE key - exit stuck program
  449. ctrl + left or right arrows - move fast word by word on text
  450. ctrl + p - print
  451. Windows Logo+D (Display the desktop)
  452. Windows Logo+M (Minimize all of the windows)
  453. Windows Logo+SHIFT+M (Restore the minimized windows)
  454. Windows Logo+E (Open My Computer)
  455. CTRL+Windows Logo+F (Search for computers)
  456. win 7 browser change zoom : ctrl + mouse scroll
  457.  
  458.  
  459. WINDOWS SERVER ADMINISTRATION
  460.  
  461.  
  462. Install and Configure Windows 2003 Active Directory
  463.  
  464. Active Directory Requirements:
  465.  
  466.  
  467. An NTFS partition with approximately 2Gb free Space
  468. An Administrator's username and password and separate Directory Services Restore Mode Password.
  469. Properly configured TCP/IP network connection, with IP Address , Subnet mask and Default Gateway.
  470. An operational DNS server (which can be installed on the DC itself)
  471. A Domain name
  472.  
  473. assuming win server 2003 was installed:
  474. 1 Start the install from the start, all programs, admin tools "Configure Your Server" wizard or by typing DCPromo from
  475. the Run prompt (start, run , cmd)
  476.  
  477. 2 in the install wizard : Select "Domain Controller (Active Directory) then press Next
  478.  
  479. 3 install dns on this computer
  480.  
  481. Install and Configure Windows 2003 DHCP (distribution of ipadresses to client pc's):
  482.  
  483. 1 Open the Windows Components section of Add/Remove programs
  484.  
  485. 2 Open Network Services
  486.  
  487. 3 Ensure that the DHCP checkbox is ticked and press OK
  488.  
  489. 4 Using the 80/20 Rule for Servers and Scopes
  490. *can skip paragraph
  491. To provide fault tolerance for the DHCP service within a given subnet, you can configure two DHCP servers to assign
  492. addresses on the same subnet. Here if one server fails then the other can take over. For balancing DHCP server use
  493. in this case, a good practice is to use the 80/20 rule to divide the scope addresses between the two DHCP servers.
  494. Server 1 is configured to assign 80% of the total addresses and server 2 is assigned the other 20%. Both servers have
  495. the same IP range but exclude each others portion of that range.
  496.  
  497. Open the DHCP Management Console from start, all programs, Administrative Tools
  498.  
  499. Select New Scope (right click on left side of dhcp window ) (this will be range of ipaddresses)
  500. fill for example : start ip 198.168.1.1 end ipaddress 198.168.1.254 length 24 subnet mask 255.255.255.0
  501. the router ip is the default gateway it is not to be used in the dhcp scope
  502.  
  503. wins server - you don't need to configure
  504.  
  505. authorize the new scope from the dhcp window (by right click left side of dhcp window)
  506.  
  507. Install and Configure Windows 2003 DNS
  508.  
  509. Open the Windows Components part of Add/Remove Programs, networking services, Press Details
  510. , domain name server, Press OK, right click forward loockup zone, follow the wizard.
  511.  
  512.  
  513. BATCH FILE RUN LIST OF COMMANDS.
  514.  
  515.  
  516. create a batch file: right click mouse, new, txt file, type commands in file, change file name ending to .bat, double
  517. click file to run commands typed in it
  518.  
  519. 2 commands:
  520. @echo off - no messages
  521. echo - messages
  522. dir c:\windows - get folder and files list of c:\windows
  523. pause - pause
  524. ECHO Hello %1 moti - %1,%2... are variables the lines output is hello moti
  525. :: or rem - add comments after that ,it does nothing
  526. :LABEL - :word then you can jump to that line using goto
  527. CALL - run a different batch file
  528. CLS - clear screen
  529. ECHO - write what is after echo, echo. is an empty line
  530. @echo off - nothing will be written
  531.  
  532. GOTO END
  533. ECHO SKIPPING THIS
  534. :END
  535. ECHO DONE
  536.  
  537. IF [NOT] string1==string2 command
  538. IF [NOT] EXIST filename command
  539.  
  540. EXIST filename - Specifies a true condition if the specified filename exists
  541. command - your command will execute if the if sentence is true
  542. [not] - reverses if condition
  543.  
  544. IF EXIST filename. (
  545. del filename.
  546. ) ELSE (
  547. echo filename. missing.
  548. )
  549. IF EXIST filename. (del filename.) ELSE echo filename. missing
  550.  
  551. START C:\WINDOW\CALC - will start calc program
  552. START /MAX C:\Windows\NOTEPAD.EXE
  553.  
  554. 3 sample batch program:
  555. @ECHO OFF
  556. REM - LABEL INDICATING THE BEGINNING OF THE DOCUMENT.
  557. :BEGIN
  558. CLS
  559. REM - THE BELOW LINE GIVES THE USER 3 CHOICES (DEFINED AFTER /C:)
  560. CHOICE /N /C:123 PICK A NUMBER (1, 2, or 3)%1
  561. REM - THE NEXT THREE LINES ARE DIRECTING USER DEPENDING UPON INPUT
  562. IF ERRORLEVEL ==3 GOTO THREE
  563. IF ERRORLEVEL ==2 GOTO TWO
  564. IF ERRORLEVEL ==1 GOTO ONE
  565. GOTO END
  566. :THREE
  567. ECHO YOU HAVE PRESSED THREE
  568. GOTO END
  569. :TWO
  570. ECHO YOU HAVE PRESSED TWO
  571. GOTO END
  572. :ONE
  573. ECHO YOU HAVE PRESSED ONE
  574. :END
  575.  
  576. 4 Below is an example of how to delay a batch file any where from 5 to 99 seconds
  577. TYPE NUL | CHOICE.COM /N /CY /TY,5 >NUL
  578.  
  579. 5 Deleting files in MS-DOS without a prompt:
  580. deltree c:\windows\temp\*.* /y deletes all files in temp folder
  581. option 2:
  582. echo y | del %1\*.*
  583. Once created, you can type the name of the batch file then the name of the directory that you wish to delete.
  584.  
  585. 6 How to execute commands in a batch file in timed intervals:
  586. :START
  587. REM Execute the MS-DOS dir command ever 20 seconds.
  588. dir
  589. SLEEP 20
  590. GOTO END
  591.  
  592. 7 How to shut down / restart the computer with a batch file:
  593. shutdown -r -c "Rebooting for latest updates."
  594. Shutdown and restart the computer
  595. shutdown -s -c
  596. shutdown
  597.  
  598. 8 How to run a batch file each time the computer boots:
  599.  
  600. Create a shortcut to the batch file. Additional information about how to create a shortcut can be found on document CH00739.
  601. Once the shortcut has been created right-click the file and select Cut.
  602. Click Start, Programs, right-click the Startup folder and click Open
  603. Once the Startup folder has been opened click Edit and paste the shortcut into the startup.
  604. Any shortcuts in the startup folder will automatically start each time Windows starts.
  605.  
  606. option 2:
  607. start, run, regedit, choose HKEY_CURRENT_USER, software, microsoft, windows, currentvertion, run,
  608. rightclick right window(if you use english), new string value, name it, double click it, type:
  609. c:\windows\system32\mspaint.exe (or other file to run at start up)
  610. start, run, msconfig, check if its in startup tab
  611.  
  612.  
  613. 9 How to run a batch file at a specific time:
  614. Click Start
  615. Click Programs
  616. Click Accessories, System Tools, and then Scheduled Tasks.
  617. click Add Scheduled Task
  618.  
  619. 10 loop :
  620. @echo off
  621. cls
  622. :start
  623. echo This is a loop
  624. pause
  625. goto start
  626.  
  627. 11 quickly replace the file extensions of several files:
  628. xcopy also keeps the originals
  629. xcopy *.shn *.wav
  630. rename *.shn *.wav
  631.  
  632. 12 navigation:
  633. cd\
  634. cd foldername
  635. (here put command like xcopy)
  636.  
  637. 13 text files:
  638. ECHO Your text goes here >filename.txt
  639. That would add "Your text goes here" to the file filename.txt
  640.  
  641. ECHO New line >>filename.txt
  642. That would add a new line to the same file, keeping the current contents as well.
  643.  
  644. ECHO Erase the file >filename.txt
  645. That would erase the contents of the file and start it fresh.
  646.  
  647. ECHO. >>filename.txt
  648. That above (with the period after ECHO) would add a blank line.
  649.  
  650. Notice the difference between the single > and double >>
  651. The single > will erase anything that's already in the file and start it fresh.
  652. The double >> will keep what's already in the file and add a new line.
  653.  
  654.  
  655. TO TURN OFF SECURITY CENTER ALERTS
  656.  
  657.  
  658. Start, click Control Panel, Double-click Security Center, under Resources, click Change the way Security
  659. Center alerts me, In the Alert Settings dialog box, clear the Firewall, Automatic Updates, or Virus Protection
  660. check boxes, and then click OK.
  661.  
  662.  
  663. UPDATE WINDOWS XP
  664.  
  665.  
  666. windowsupdate.microsoft.com/
  667.  
  668.  
  669. UBUNTU OPERATING SYSTEM
  670.  
  671. ubuntu is an open source OS
  672. DOWNLOAD AND INSTALL :
  673. http://www.ubuntu.com/download/ubuntu/download
  674.  
  675.  
  676. HIDE YOUR IP
  677.  
  678.  
  679. to change your ipaddress (the one displayed on servers(websites)) you surf to :
  680.  
  681. 1 install foxyproxy
  682.  
  683. 2 go to proxz.com , click high anonymous, copy from the list an ipaddress and port to the foxyproxy
  684.  
  685. or use : youhide.com
  686.  
  687. How To Make A Static IP Address:
  688. run, cmd, ipconfig a:
  689. copy : ipadress, default gateway, subnet mask, dhcp server
  690. start, control panel, network connections, right click the connection, properties, scroll down to internet protocol tcp/ip
  691.  
  692.  
  693. YOU CAN UPLOAD AND DOWNLOAD YOUR FILES USING THIS SITES( A BACKUP TECHNIQUE)
  694.  
  695.  
  696. rapidshare.com
  697. mediafire.com
  698. sharingmatrix.net
  699. filefactory.com
  700. filesonic.com
  701. zshare.net
  702. megaupload.com
  703. oron.com
  704. fileserve.com
  705. box.net
  706. mydrive.ch
  707. http://bayimg.com 'upload images
  708.  
  709. i recommend zipping the files with winrar before upload to speed the upload.
  710.  
  711.  
  712. CUSTOM RSS FEED
  713.  
  714.  
  715. get update of all your favorite sites in 1 place :
  716. http://feedweaver.net/
  717.  
  718.  
  719. GAMING
  720.  
  721.  
  722. you will find a walkthrough for a 2 player vs game in : bp 2nd part
  723.  
  724. the essence of quest gaming is brackets :
  725. {[((()))()()(())][()(())]} each open brackets is the start of a story or conflict, each corrosponding close brackets
  726. is a battle, the final brackets are boss battles.
  727. also, interesting quest games teach the gamer stuff like languages and technology, have big maps based on real maps, nice
  728. landscapes, markets, heal centers, cheats like death note, travel upgrades like speed up and teleport, level ups,
  729. character collection, and multiplayer support. also have a rival, and a comic relief character.
  730.  
  731. free pachinko online : http://game.ayumex.com/pachinko/
  732.  
  733.  
  734. VB.NET:
  735.  
  736.  
  737. vb.net - visual basic 2010 is a compiler - a program that make programs using cheats.
  738.  
  739. install: go to google.com, search vb.net download.
  740. after install:
  741. file: here you can open a new project(create a program(choose form its easiest)),save,load...
  742. tools:double click a tool (left bar of screen) it adds to your form, double click appeared tool and
  743. you can write code for what happens when the tool is clicked.
  744.  
  745. also double click tool events(right of screen with form(lightning symbol)) to code for those events.
  746.  
  747. while coding:write tools name(as appears in its changeable properties (at right of screen with form)) dot
  748. then choose or type a property to change. example : textbox.text = "hello"
  749.  
  750. the form is considered as a tool, double click it to write code for its load event
  751.  
  752. variables: examples: dim x as integer
  753.  
  754. comment example:dim s as string'string variable
  755.  
  756. global variables : are declared outside of sub(procedure or function) and can be used by all subs
  757.  
  758. local variables: declared inside subs and can be used within the sub in which they were declared
  759.  
  760. special operators:/ division, * multiply, ^ exponent, & string concat, \ integer divition, mod remainder division
  761.  
  762. intellisense:right click and choose the code snipet you want (if statements,loops,select case and more) , tab key.
  763.  
  764. imports:)see vb.net sp codes for example
  765. 1 install some sdk or something(not always mostly not needed)
  766. 2 add vb control (not always mostly not needed)
  767. 3 add reference
  768. 4 add import statement at 1st line of the code area(outside of the class )
  769. 5 you can now use lines of code unlocked by stages 1-4 in the subs
  770.  
  771. class:
  772. add class from project menu (from here you can also add a form)
  773. public className
  774. dim x as string 'or public x as string or private x as integer
  775. private hiden as integer 'can be used only in class
  776. sub s1()
  777. end sub
  778. sub s2()
  779. hiden = 5
  780. x = hiden
  781. end sub
  782. end class
  783. to use the class: in a sub in the main code:
  784. dim j as new className()
  785. then you can reference the objects powers:
  786. r= j.x
  787. j.s1()
  788. j.x = "true ogre"
  789. j.s2
  790. can not reference j.hiden
  791.  
  792. inheritance: add class:
  793. public class classB
  794. inherits className
  795. variables
  796. subs
  797. end class
  798. in the main code classB can use classNames powers and its own whereas className can't use
  799. classB's powers
  800.  
  801. subs:
  802. sub sA(byval x as integer) as integer
  803. return x + 1
  804. end sub
  805. sub sB()
  806. msgbox("hello")
  807. end sub
  808. sub sC(byref x as string)
  809. x &= "hello"
  810. endsub
  811. use subs from within other subs or event subs :
  812. sA(1) 'returns 2
  813. sB() 'message "hello"
  814. dim s1 as string = "konichiwa"
  815. sC(s1) ' s1 = "konichiwahello"
  816.  
  817. dictionary type: this is the most powerful variable in the vb.net arsenal it uses hash tables to find
  818. data for its corresponding keys(fastest):
  819. imports system.collections.generic
  820. declar it in the class:
  821. dim d as new dictionary (of string,string) ' or (of any variable,any variable)(of keys,data)
  822. get data: d(key) : x =d(keyVariable)
  823. d. 'choose a dictionary technique like add a key and value
  824. d(key)= newValue 'change data for key
  825. to refer to all the data in dictionary (lets call it d):
  826. for each pair as keyvaluepair(of string,integer) in d
  827. sum += pair.value
  828. next
  829.  
  830. array: dim ar(index1,index2...) as integer 'or other data type
  831. or: dim ar(0-3) as short or dim ar(variable - 2) as integer
  832. assign value: ar(1,2) = 3 'for example
  833. also : dim ar() as string ={"hi", "wasap", "yo"}
  834. for 2 dimensions: dim ar = {{9,1},{60,5}} and so on
  835. Lbound(arrayName) returns the start index of the array
  836. Ubound(arrayName) returns the last index of the array
  837. array.sort(arrayname) : sorts the array
  838.  
  839. the try snippet of the intellisense can negate a glitch from stopping the program. put the code that might cause
  840. a problem after try, and after catch you can put code to run if a glitch accord.
  841.  
  842. debug: f5 or green arrow.
  843. debug step by step: blue arrows next to debug green arrow
  844. add watch for variables to track them while step by step debug: right click variables from code
  845. and add watch.
  846.  
  847. in the solution explorer window there is a resources folder to which you can add files like picture than use them
  848. as read only via : my.resources.filename
  849. example :
  850. dim bm1 as bitmap
  851. bm1 = my.resources.pic1
  852.  
  853. exit application :
  854. my.application.exit()
  855. application.exit()
  856.  
  857.  
  858. simplest way to save in vb :
  859. project, save settings (or from my project in solution explorer), application, enable application framework and save my.settings on shutdown are checked
  860. in settings add variable that will be saved
  861.  
  862. dim settings as new my.settings ' global var
  863. in sub :
  864. settings.varname = "" 'as var type
  865. settings.save()
  866.  
  867.  
  868. PRACTICE BLIND TYPING
  869.  
  870.  
  871. http://www.snopi.com/fs/fs.asp?lang=eng&view=eng
  872. http://www.vbforums.com/showthread.php?p=4045321#post4045321
  873.  
  874.  
  875. VB SPECIAL CODES
  876.  
  877.  
  878. AMP IT UP
  879. 1 random
  880. Dim random As New Random()
  881. random.Next(65, 91) ' return 65 - 90
  882. ' chr(random.Next(65, 91)) return A - Z
  883. or
  884. x = CStr(Int(Rnd() * 10)) 'variable x = exampeled random number
  885. 2 beep() 'beeps
  886. 3 add new line to a multiline text box:
  887. textBox1.Text = "Your First Line" & vbCrLf & "Your second line"
  888. or textBox.AppendText(Environment.NewLine & "your new text")
  889. 4 volume meter:
  890. 4.1 install your usb microphone (or webcam mic) drivers from its cd
  891. 4.2 download and install .net (framework) 2.0 (it's in this book files)
  892. download and install audioLab and its pdf manual from:
  893. mitov.com/html/download_audiolab.html
  894. 4.3 follow the manual till you have the vumeter control on your vb toolbox
  895. 4.4 connect usb microphone
  896. 4.5 add the control vumeter , properties:period 100(0.1 seconds)
  897. 4.6add the control audio in
  898. 4.7click the audio in little arrow, choose your usb microphone
  899. 4.8 audio in properties : output pin : check vumeter
  900. 4.9 double click event of vumeter to code, in the code textbox.text = args.avalue
  901. 5 robotic output: you will need a usb microcontroller to send output signals from your computer
  902. search for vb.net microcontrollers/usb dc motors/vb.net robotics controller
  903. also trossen robotics and pc-control sells that stuff and it should come with a walkthrough
  904. http://www.pc-control.co.uk/
  905. 6 record sound from usb microphone:
  906. Public Class Form1
  907.  
  908. Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
  909.  
  910. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  911.  
  912. ' record from microphone
  913.  
  914. mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)
  915.  
  916. mciSendString("record recsound", "", 0, 0)
  917.  
  918. End Sub
  919.  
  920. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  921.  
  922. ' stop and save
  923.  
  924. mciSendString("save recsound c:\record.wav", "", 0, 0)
  925.  
  926. mciSendString("close recsound", "", 0, 0)
  927.  
  928. End Sub
  929.  
  930. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  931.  
  932. ' play audio
  933.  
  934. My.Computer.Audio.Play("c:\record.wav", AudioPlayMode.Background)
  935.  
  936. End Sub
  937.  
  938. End Class
  939.  
  940. add controls according to squigly lines in code
  941. 7 textbox enter key down event: double click textbox event key up
  942. If e.KeyCode = Keys.Enter Then
  943. 'some code
  944. end if
  945. 8 save text file:
  946. 8.1 Imports System.IO (1st line of code)
  947. 8.2If File.Exists("path string") Then 'c:\wasap.txt for example
  948. File.Delete("path string")
  949. File.Delete("path string")
  950. End If
  951. instead of using imports.io you can use in the code: io.file.
  952. 8.3 File.WriteAllText(pathString, dataString) '
  953. 8.4 to read txt file :
  954. File.ReadAllText(pathString)
  955. 9 webcam image capture:
  956. Public Class Form1
  957. Const WM_CAP As Short = &H400S
  958. Const WM_CAP_DRIVER_CONNECT As Integer = WM_CAP + 10
  959. Const WM_CAP_DRIVER_DISCONNECT As Integer = WM_CAP + 11
  960. Const WM_CAP_EDIT_COPY As Integer = WM_CAP + 30
  961. Const WM_CAP_SET_PREVIEW As Integer = WM_CAP + 50
  962. Const WM_CAP_SET_PREVIEWRATE As Integer = WM_CAP + 52
  963. Const WM_CAP_SET_SCALE As Integer = WM_CAP + 53
  964. Const WS_CHILD As Integer = &H40000000
  965. Const WS_VISIBLE As Integer = &H10000000
  966. Const SWP_NOMOVE As Short = &H2S
  967. Const SWP_NOSIZE As Short = 1
  968. Const SWP_NOZORDER As Short = &H4S
  969. Const HWND_BOTTOM As Short = 1
  970. Dim iDevice As Integer = 0
  971. Dim hHwnd As Integer
  972. Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Object) As Integer
  973. Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
  974. Declare Function DestroyWindow Lib "user32" (ByVal hndw As Integer) As Boolean
  975. Declare Function capCreateCaptureWindowA Lib "avicap32.dll" (ByVal lpszWindowName As String, ByVal dwStyle As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Short, ByVal hWndParent As Integer, ByVal nID As Integer) As Integer
  976. Declare Function capGetDriverDescriptionA Lib "avicap32.dll" (ByVal wDriver As Short, ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, ByVal cbVer As Integer) As Boolean
  977.  
  978. Private Sub LoadDeviceList()
  979. Dim strName As String = Space(100)
  980. Dim strVer As String = Space(100)
  981. Dim bReturn As Boolean
  982. Dim x As Integer = 0
  983. Do
  984. bReturn = capGetDriverDescriptionA(x, strName, 100, strVer, 100)
  985. If bReturn Then lstDevices.Items.Add(strName.Trim)
  986. x += 1
  987. Loop Until bReturn = False
  988. End Sub
  989.  
  990. Private Sub OpenPreviewWindow()
  991. Dim iHeight As Integer = picCapture.Height
  992. Dim iWidth As Integer = picCapture.Width
  993. hHwnd = capCreateCaptureWindowA(iDevice, WS_VISIBLE Or WS_CHILD, 0, 0, 640, 480, picCapture.Handle.ToInt32, 0)
  994. If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) Then
  995. SendMessage(hHwnd, WM_CAP_SET_SCALE, True, 0)
  996. SendMessage(hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0)
  997. SendMessage(hHwnd, WM_CAP_SET_PREVIEW, True, 0)
  998. SetWindowPos(hHwnd, HWND_BOTTOM, 0, 0, picCapture.Width, picCapture.Height, SWP_NOMOVE Or SWP_NOZORDER)
  999. btnSave.Enabled = True
  1000. btnStop.Enabled = True
  1001. btnStart.Enabled = False
  1002. Else
  1003. DestroyWindow(hHwnd)
  1004. btnSave.Enabled = False
  1005. End If
  1006. End Sub
  1007.  
  1008. Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
  1009. Dim data As IDataObject
  1010. Dim bmap As Image
  1011. SendMessage(hHwnd, WM_CAP_EDIT_COPY, 0, 0)
  1012. data = Clipboard.GetDataObject()
  1013. If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
  1014. bmap = CType(data.GetData(GetType(System.Drawing.Bitmap)), Image)
  1015. picCapture.Image = bmap
  1016. ClosePreviewWindow()
  1017. btnSave.Enabled = False
  1018. btnStop.Enabled = False
  1019. btnStart.Enabled = True
  1020. If sfdImage.ShowDialog = DialogResult.OK Then
  1021. bmap.Save(sfdImage.FileName, Imaging.ImageFormat.Bmp)
  1022. End If
  1023. End If
  1024. End Sub
  1025.  
  1026. Private Sub ClosePreviewWindow()
  1027. SendMessage(hHwnd, WM_CAP_DRIVER_DISCONNECT, iDevice, 0)
  1028. DestroyWindow(hHwnd)
  1029. End Sub
  1030.  
  1031. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  1032. LoadDeviceList()
  1033. End Sub
  1034.  
  1035. Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
  1036. OpenPreviewWindow()
  1037. btnStart.Enabled = False
  1038. btnStop.Enabled = True
  1039. End Sub
  1040.  
  1041. Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
  1042. ClosePreviewWindow()
  1043. btnStart.Enabled = True
  1044. btnStop.Enabled = False
  1045. End Sub
  1046. End Class
  1047. add controls according to squigly lines in code
  1048. 10 text to speech:
  1049.  
  1050. project add referense com (tab) microsoft sapi 5.0
  1051.  
  1052. imports speechLib 'at start of code
  1053.  
  1054. dim voice as new spvoice ' define as global variable
  1055.  
  1056. in a sub:
  1057.  
  1058. voice.speak("text or string variable")
  1059.  
  1060.  
  1061. 11 inputbox: x = inputbox(promtString)
  1062. 12 declare many variable at once: dim x,y,z as integer
  1063. 13 get the time: stringVariable = timestring
  1064. get date: stringVariable = dateString 'or - now
  1065. get hour: stringvariable = hour(date)
  1066. same for month, year and weekday
  1067. 14 shortcut: x = x+ 5 is like x+=5 the same goes for the other operators
  1068. 15 read txt 2nd way: (imports system.io)
  1069. dim str as streamreader
  1070. str = new streamreader("c:\test.txt") ' or other path string
  1071. someString = str.readline()
  1072. str.close()
  1073. 16 2nd way to write in a text file:(imports system.io)
  1074. dim stw as streamWriter = file.creattext(path string on hard disk)
  1075. stw.write(data string)
  1076. stw.close()
  1077. 'to continue with other text:
  1078. stw = file.creattext( 2nd path string on hard disk)
  1079. stw.write(data string)
  1080. stw.close()
  1081. 17 get absolute: imports system.math
  1082. x = abs(a - b) ' same as abs(10 - 99) x = 89
  1083. 18 ad a tab to a string or textbox: textbox1.text &= vbtab
  1084. 19 convert type of variable:(explicit conversion)
  1085. Dim MyNumber As Long
  1086. Dim MyNewType As Single
  1087. MyNumber = 1000
  1088. MyNewType = CType(MyNumber,Single) ' MyNewType is set to 1000.0.
  1089. implicit conversion:
  1090. Dim d=132.31223 as Double
  1091. Dim i as Integer
  1092. i=d
  1093. WriteLine("Integer value is" & i)
  1094. 20 set an icon for your program:
  1095. project, properties, select icon (assuming you downloaded one(an icon file end with .ico))
  1096. 21 graphics: imports system.drawing.graphics (you can skip that imports line)
  1097. draw shape:
  1098. Dim GraphicsFun As Graphics
  1099. GraphicsFun = Me.CreateGraphics
  1100. Dim PenColor As New Pen(System.Drawing.Color.Red) 'or brush to fill color in shape
  1101. GraphicsFun.DrawEllipse(PenColor, 10, 120, 200, 160) ' or drawline draywhatever intellisense offers
  1102. move object on form:
  1103. PictureBox1.Location = New Point(300, 200)
  1104. animate:
  1105. Use a timer event procedure to modify the Left, Top, or Location
  1106. property for an object on the form. The timerís Interval property
  1107. controls animation speed.
  1108. change object size : Change the objectís Height property or Width property.
  1109. transparency of a form: Change the formís Opacity property.
  1110. 22 chat online:
  1111. 22.1 use webbrowser control and surf to an internet site with a chat
  1112. 22.2 2nd way install c4f (it's for vb.net) then vb will have chat control in it's toolbox
  1113. 23 the timer control fires events every set amount of time.
  1114. 24 special for loop:
  1115. For x As Single = 0 To 2.5 Step 0.5
  1116. 'some code
  1117. Next
  1118. 25 mouse get set position, detect generate click:
  1119. public class form1
  1120. 'declare for setting mouse position
  1121. private declare function setCursorPos lib"user32"(byVal x As integer, byVal y As integer) As integer
  1122. 'to detect mouse click declare:
  1123. private declare function getAsyncKeyState lib "user32"( byVAl vKey As long) As integer
  1124. 'declare to be able to generate a mouse click:
  1125. private const MOUSEEVENTF_LEFTDOWN = &h2
  1126. private const MOUSEEVENTF_LEFTUP = &h4
  1127. private const MOUSEEVENTF_RIGHTDOWN = &h8
  1128. private const MOUSEEVENTF_RIGHTUP = &h10
  1129. private declaresub mouse_event lib "user32" (byVal dwflags as integer, byVal dx as integer,
  1130. byVal dy as integer, byVal cbuttons as integer, byVal dwExtraInfo as integer)
  1131. 'in a sub such as key down event:
  1132. dim mp As point = mouseposition 'point with mouse pixel cordinates on the screen
  1133. ' or get mouse position with:
  1134. textbox1.text = cursor.position.x ' or .y
  1135. str1 = mp.tostring() ' returns a text string of mouse cordinates str1 is a string you declare
  1136. setcursorpos(x,y) 'x,y are integers or integer variables
  1137. 'to generate mouse click:
  1138. mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0)
  1139. mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0)
  1140. mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0)
  1141. mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0) 'double click
  1142. 'to detect mouse click: (in a sub)
  1143. if getAsyncKeyState(1) then
  1144. 'code for left click for getAsyncKeyState(1), right click getAsyncKeyState(2)
  1145.  
  1146. 26 sendkeys from program to notepad or open textboxes(in browsers also):
  1147. SendKeys.Send("text")
  1148. SendKeys.Send("{enter}")
  1149. dim x as string
  1150. x = "hello"
  1151. SendKeys.Send(x)
  1152. BACKSPACE
  1153. {BACKSPACE}, {BS}, or {BKSP}
  1154.  
  1155. BREAK
  1156. {BREAK}
  1157.  
  1158. CAPS LOCK
  1159. {CAPSLOCK}
  1160.  
  1161. DEL or DELETE
  1162. {DELETE} or {DEL}
  1163.  
  1164. DOWN ARROW
  1165. {DOWN}
  1166.  
  1167. END
  1168. {END}
  1169.  
  1170. ENTER
  1171. {ENTER}or ~
  1172.  
  1173. ESC
  1174. {ESC}
  1175.  
  1176. HELP
  1177. {HELP}
  1178.  
  1179. HOME
  1180. {HOME}
  1181.  
  1182. INS or INSERT
  1183. {INSERT} or {INS}
  1184.  
  1185. LEFT ARROW
  1186. {LEFT}
  1187.  
  1188. NUM LOCK
  1189. {NUMLOCK}
  1190.  
  1191. PAGE DOWN
  1192. {PGDN}
  1193.  
  1194. PAGE UP
  1195. {PGUP}
  1196.  
  1197. PRINT SCREEN
  1198. {PRTSC} (reserved for future use)
  1199.  
  1200. RIGHT ARROW
  1201. {RIGHT}
  1202.  
  1203. SCROLL LOCK
  1204. {SCROLLLOCK}
  1205.  
  1206. TAB
  1207. {TAB}
  1208.  
  1209. UP ARROW
  1210. {UP}
  1211.  
  1212. F1
  1213. {F1}
  1214.  
  1215. F2
  1216. {F2}
  1217.  
  1218. F3
  1219. {F3}
  1220.  
  1221. F4
  1222. {F4}
  1223.  
  1224. F5
  1225. {F5}
  1226.  
  1227. F6
  1228. {F6}
  1229.  
  1230. F7
  1231. {F7}
  1232.  
  1233. F8
  1234. {F8}
  1235.  
  1236. F9
  1237. {F9}
  1238.  
  1239. F10
  1240. {F10}
  1241.  
  1242. F11
  1243. {F11}
  1244.  
  1245. F12
  1246. {F12}
  1247.  
  1248. F13
  1249. {F13}
  1250.  
  1251. F14
  1252. {F14}
  1253.  
  1254. F15
  1255. {F15}
  1256.  
  1257. F16
  1258. {F16}
  1259.  
  1260. Keypad add
  1261. {ADD}
  1262.  
  1263. Keypad subtract
  1264. {SUBTRACT}
  1265.  
  1266. Keypad multiply
  1267. {MULTIPLY}
  1268.  
  1269. Keypad divide
  1270. {DIVIDE}
  1271.  
  1272. SHIFT
  1273. +
  1274.  
  1275. CTRL
  1276. ^
  1277.  
  1278. ALT
  1279. %
  1280.  
  1281. SendKeys.Send("^{c}") 'copy
  1282.  
  1283. 27 rss feed:
  1284.  
  1285. Dim s As String
  1286. Dim myURL As String = "http://stateofidleness.com/feed/"
  1287. Dim request As HttpWebRequest = WebRequest.Create(myURL)
  1288. Dim response As HttpWebResponse = request.GetResponse()
  1289. Using reader As StreamReader = New StreamReader(response.GetResponseStream())
  1290. s = reader.ReadToEnd()
  1291. End Using
  1292. MsgBox(s) 'Set your Textbox1.Text here
  1293.  
  1294. 28 f1 - offers example code, you can click f1 after clicking a tool you added to your form for example.
  1295. basic tricks: ctrl z - undo your last action, ctrl c - copy (text or tool(aka activx)), ctrl v - paste
  1296.  
  1297. 29 sending a fax:
  1298.  
  1299. fxscom.dll in your WINDOWS\system32 directory. If it's not there try to install FAX Services from Windows components.
  1300. as explained in fax of pc technician chapter.
  1301. References in Solution Explorer and choose Add Reference, COM tab, select FaxControl 1.0 Type Library
  1302.  
  1303.  
  1304. Private Sub Form_Load()
  1305. Dim objFaxDocument As New FAXCOMEXLib.FaxDocument
  1306. Dim objFaxServer As New FAXCOMEXLib.FaxServer
  1307. Dim objSender As FAXCOMEXLib.FaxSender
  1308. Dim JobID As Object
  1309.  
  1310. 'Error handling
  1311. On Error GoTo Error_Handler
  1312.  
  1313. 'Connect to the fax server
  1314. objFaxServer.Connect("")
  1315.  
  1316. 'Set the fax body
  1317. objFaxDocument.Body = "c:\Docs\Body.txt"
  1318.  
  1319. 'Name the document
  1320. objFaxDocument.DocumentName = "My First Fax"
  1321.  
  1322. 'Set the fax priority
  1323. objFaxDocument.Priority = FAXCOMEXLib.FAX_PRIORITY_TYPE_ENUM.fptHIGH
  1324.  
  1325.  
  1326. 'Add the recipient with the fax number 12225550100
  1327. objFaxDocument.Recipients.Add("12225550100", "Bud")
  1328.  
  1329. 'Choose to attach the fax to the fax receipt
  1330. objFaxDocument.AttachFaxToReceipt = True
  1331.  
  1332. 'Set the cover page type and the path to the cover page
  1333. objFaxDocument.CoverPageType = FAXCOMEXLib.FAX_COVERPAGE_TYPE_ENUM.fcptSERVER
  1334. objFaxDocument.CoverPage = "generic"
  1335.  
  1336. 'Provide the cover page note
  1337. objFaxDocument.Note = "Here is the info you requested"
  1338.  
  1339. 'Provide the address for the fax receipt
  1340. objFaxDocument.ReceiptAddress = "someone@example.com"
  1341.  
  1342. 'Set the receipt type to email
  1343. objFaxDocument.ReceiptType = FAXCOMEXLib.FAX_RECEIPT_TYPE_ENUM.frtMAIL
  1344.  
  1345. 'Specify that the fax is to be sent at a particular time
  1346. objFaxDocument.ScheduleType = FAXCOMEXLib.FAX_SCHEDULE_TYPE_ENUM.fstSPECIFIC_TIME
  1347. 'CDate converts the time to the Date data type
  1348. objFaxDocument.ScheduleTime = CDate("4:35:47 PM")
  1349.  
  1350. objFaxDocument.Subject = "Today's fax"
  1351.  
  1352. 'Set the sender properties.
  1353. objFaxDocument.Sender.Title = "Mr."
  1354. objFaxDocument.Sender.Name = "Bob"
  1355. objFaxDocument.Sender.City = "Cleveland Heights"
  1356. objFaxDocument.Sender.State = "Ohio"
  1357. objFaxDocument.Sender.Company = "Microsoft"
  1358. objFaxDocument.Sender.Country = "USA"
  1359. objFaxDocument.Sender.Email = "someone@microsoft.com"
  1360. objFaxDocument.Sender.FaxNumber = "12165555554"
  1361. objFaxDocument.Sender.HomePhone = "12165555555"
  1362. objFaxDocument.Sender.OfficeLocation = "Downtown"
  1363. objFaxDocument.Sender.OfficePhone = "12165555553"
  1364. objFaxDocument.Sender.StreetAddress = "123 Main Street"
  1365. objFaxDocument.Sender.TSID = "Office fax machine"
  1366. objFaxDocument.Sender.ZipCode = "44118"
  1367. objFaxDocument.Sender.BillingCode = "23A54"
  1368. objFaxDocument.Sender.Department = "Accts Payable"
  1369.  
  1370. 'Save sender information as default
  1371. objFaxDocument.Sender.SaveDefaultSender()
  1372.  
  1373. 'Submit the document to the connected fax server
  1374. 'and get back the job ID.
  1375.  
  1376. JobID = objFaxDocument.ConnectedSubmit(objFaxServer)
  1377.  
  1378. MsgBox("The Job ID is :" & JobID(0))
  1379.  
  1380. objFaxServer.Disconnect()
  1381.  
  1382. Exit Sub
  1383.  
  1384. Error_Handler:
  1385. 'Implement error handling at the end of your subroutine. This
  1386. ' implementation is for demonstration purposes
  1387. MsgBox("Error number: " & Hex(Err.Number) & ", " & Err.Description)
  1388.  
  1389. End Sub
  1390.  
  1391. or:
  1392.  
  1393. Imports FAXCOMEXLib
  1394. Imports FAXCOMLib
  1395. Imports System.IO
  1396. Imports System.IO.StreamWriter
  1397. Public Class Form1
  1398. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  1399. Try
  1400. Dim objFaxDocument As New FAXCOMEXLib.FaxDocument
  1401. Dim objFaxServer As New FAXCOMEXLib.FaxServer
  1402. Dim JobID As Object
  1403. objFaxServer.Connect("")
  1404. objFaxDocument.Body = "c:\Test.txt"
  1405. objFaxDocument.DocumentName = "My First Fax"
  1406. objFaxDocument.Recipients.Add("902380663584", "Bud")
  1407. objFaxDocument.AttachFaxToReceipt = True
  1408. objFaxDocument.Note = "Here is the info you requested"
  1409. objFaxDocument.Subject = "Today's fax"
  1410. JobID = objFaxDocument.ConnectedSubmit(objFaxServer)
  1411. MsgBox("The Job ID is :" & JobID(0))
  1412. Catch ex As Exception
  1413. MsgBox("Error number: " & Hex(Err.Number) & ", " & Err.Description)
  1414. End Try
  1415. End Sub
  1416. End Class
  1417.  
  1418. 30 reminder comments : 'TODO something
  1419. or
  1420. ' HACK something
  1421.  
  1422. 31 detect keyboard keys while form and its controls are not in focus:
  1423. Set the Form's KeyPreview property to True and handle the KeyPress/KeyDOwn/etc event.
  1424.  
  1425. 32 splash screen : (a screen to apper briefly when the program loads)
  1426. Click on the project in the Solution Explorer panel, add new item, Splash Screen template
  1427. Set the splash screen to be the first form to load:
  1428. click Project, Properties, Insert the name of the splash screen in the Start form box
  1429.  
  1430. 33 kill process
  1431.  
  1432. Sub Main()
  1433. Dim proc() As Process = Process.GetProcesses
  1434. For i As Integer = 0 To proc.GetUpperBound(0)
  1435. Console.WriteLine(proc(i).ProcessName)
  1436. If proc(i).ProcessName = "firefox" Then
  1437. proc(i).Kill()
  1438. End If
  1439. Next
  1440. Console.ReadLine()
  1441. End Sub
  1442.  
  1443. 34 COM PORT
  1444.  
  1445. add a button all properties are default
  1446.  
  1447. Imports System
  1448. Imports System.IO.Ports
  1449.  
  1450. Public Class Form1
  1451.  
  1452. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  1453. Dim _serialPort As SerialPort
  1454. _serialPort = New SerialPort("com1")
  1455. _serialPort.Open()
  1456. 'code here
  1457. MsgBox("opened")
  1458. _serialPort.Close()
  1459. MsgBox("closed")
  1460. End Sub
  1461. End Class
  1462.  
  1463. 35 picture dispose
  1464.  
  1465. myImage = Image.FromFile("file path here") or this:
  1466. vb.net Code:
  1467. myImage = New Bitmap("file path here") then that's why the file is in use. Releasing the file is simple:
  1468. vb.net Code:
  1469. myImage.Dispose
  1470.  
  1471. 36 ' get your ipaddress
  1472. imports system.net
  1473.  
  1474. 'in a sub:
  1475. dns.getHostName ' returns computer name
  1476. ' get ipaddress
  1477. me.combobox1.items.AddRange(dns.getHostAddresses()) ' assuming you added a combo box to the form
  1478.  
  1479. 37 openfiledialog :
  1480. me.openfiledialog.filename = string.empty
  1481. me.openfiledialog.showdialog() ' choose file its name goes in me.openfiledialog.filename
  1482.  
  1483. 38 replace new line with </br> or other
  1484.  
  1485. RichTextBox1.Lines = (From line As String _
  1486. In RichTextBox1.Lines _
  1487. Select line & "</br>").ToArray()
  1488.  
  1489. 39 ENCRYPTION :
  1490.  
  1491. Be sure to Import these at the top of your class as well:
  1492.  
  1493. Code:
  1494. Imports System.IO
  1495. Imports System.Security.Cryptography
  1496. Imports System.TextCode:
  1497. Private bytIV() As Byte = {190, 45, 111, 11, 32, 89, 21, 9, 255, 97, 8, 55, 44, 211, 23, 63}
  1498. Private Const chrKeyFill As Char = "X"c
  1499. Private Const intKeySize As Integer = 32
  1500.  
  1501. Private Sub CryptFile(ByVal strInName As String, ByVal strOutName As String, ByVal strKey As String, ByVal booDecrypt As Boolean)
  1502. Dim bytStorage(4096) As Byte
  1503. Dim intTotalBytesWritten As Long = 8
  1504.  
  1505. Dim intPackageSize As Integer
  1506.  
  1507. Dim fin As New FileStream(strInName, FileMode.Open, FileAccess.Read)
  1508. Dim fout As New FileStream(strOutName, FileMode.OpenOrCreate, FileAccess.Write)
  1509.  
  1510. fout.SetLength(0)
  1511. Dim intTotalFileLength As Long = fin.Length
  1512. Dim rij As New System.Security.Cryptography.RijndaelManaged
  1513. Dim crsStream As CryptoStream
  1514. If booDecrypt Then
  1515. crsStream = New CryptoStream(fout, _
  1516. rij.CreateDecryptor(ConvertKeyToBytes(strKey), bytIV), CryptoStreamMode.Write)
  1517. Else
  1518. crsStream = New CryptoStream(fout, _
  1519. rij.CreateEncryptor(ConvertKeyToBytes(strKey), bytIV), CryptoStreamMode.Write)
  1520. End If
  1521.  
  1522. While intTotalBytesWritten < intTotalFileLength
  1523. intPackageSize = fin.Read(bytStorage, 0, 4096)
  1524. crsStream.Write(bytStorage, 0, intPackageSize)
  1525. intTotalBytesWritten = Convert.ToInt32(intTotalBytesWritten + intPackageSize / rij.BlockSize * rij.BlockSize)
  1526. End While
  1527. crsStream.Close()
  1528. fout.Close()
  1529. fin.Close()
  1530. End Sub
  1531.  
  1532. Private Function ConvertKeyToBytes(ByVal strKey As String) As Byte()
  1533. Dim intLength As Integer = strKey.Length
  1534.  
  1535. If intLength < intKeySize Then
  1536. strKey &= Strings.StrDup(intKeySize - intLength, chrKeyFill)
  1537. Else
  1538. strKey = strKey.Substring(0, intKeySize)
  1539. End If
  1540.  
  1541. Return Encoding.UTF8.GetBytes(strKey)
  1542. End Function
  1543.  
  1544. 40 usb stuff (untested) : http://www.franson.com/serialtools/
  1545.  
  1546. 41 screen capture
  1547. Public Class Form1
  1548.  
  1549. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  1550. Dim screenBounds = Screen.PrimaryScreen.Bounds
  1551. Dim screenShot As New Bitmap(screenBounds.Width, screenBounds.Height)
  1552. Using g = Graphics.FromImage(screenShot)
  1553. g.CopyFromScreen(screenBounds.Location, Point.Empty, screenBounds.Size)
  1554. End Using
  1555. PictureBox1.Image = screenShot
  1556. 'Dim filePath = IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.MyPictures, "ScreenShot.bmp")
  1557. 'screenShot.Save(filePath, Imaging.ImageFormat.Bmp)
  1558. End Sub
  1559. End Class
  1560.  
  1561. 42 acsii to character conversion
  1562. chr(acsii) ' return acsii number to char
  1563.  
  1564. 43 regex get the string in a defined middle
  1565. Imports System
  1566. Imports System.Text.RegularExpressions
  1567. Public Class Form1
  1568.  
  1569. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  1570. Dim mCollect As MatchCollection = Regex.Matches("sjlfhal{yes}djklafh{yess}", "(?<={).*?(?=})", RegexOptions.IgnoreCase)
  1571.  
  1572. For Each m As Match In mCollect
  1573. MsgBox(m.Value)
  1574. Next
  1575. End Sub
  1576. End Class
  1577.  
  1578. ' output : yes yess
  1579.  
  1580. 44 rotate image
  1581. RotateFlipType.Rotate180FlipX ' can be set with intellisense
  1582.  
  1583. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  1584. Dim bm As Bitmap = PictureBox1.Image
  1585. bm.RotateFlip(RotateFlipType.Rotate180FlipX)
  1586. PictureBox1.Image = bm
  1587. End Sub
  1588.  
  1589. 45 prevent 2 programs from running simoultaniously
  1590. Imports System.Threading
  1591. Public Class Form1
  1592. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  1593. Dim Mutex_Object As Mutex 'We will be working with Mutex
  1594. Mutex_Object = New Mutex(False, "Pervent Twice Open") ' Were you see "Pervent Twice Open" thats were you put the name of your project.
  1595. If Mutex_Object.WaitOne(0, False) = False Then 'lets perform the check
  1596. MessageBox.Show("The same application is opened twice.")
  1597. Application.Exit()
  1598. End If
  1599. End Sub
  1600. End Class
  1601.  
  1602. 46 skype (voice over ip)
  1603.  
  1604. notes : install skype (voip software), when running skype is running, you signed in it
  1605.  
  1606. 1 dl skype4com from http://developer.skype.com/accessories
  1607. 2 extract the zip file (3 files : chm, dll,msm)
  1608. 3 open vb.net, file, new, project, window application
  1609. 4 from tool box add :
  1610. textbox name : txtCallee
  1611. 3 radio buttons : radTel, ralCell, radSkype
  1612. textbox multiline = true
  1613. button btnCall
  1614. textbox name: txtMsg
  1615. button btnSend
  1616. timer name : ChatTimer, true, interval 1000
  1617.  
  1618. 5 project, add reference, browse , skype4com.dll
  1619.  
  1620. 6 source code :
  1621. global vars : (add below class (after right click form, view code))
  1622. Dim oSkype As SKYPE4COMLib.Skype = New SKYPE4COMLib.Skype
  1623. Dim oCall As SKYPE4COMLib.Call
  1624. Dim oChat As SKYPE4COMLib.Chat
  1625.  
  1626. Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  1627. If oSkype.Client.IsRunning = False Then
  1628. MsgBox("Skype must be running!")
  1629. End
  1630. End If
  1631. Try
  1632. If oSkype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusOffline Then
  1633. MsgBox("Your Skype account must be online!")
  1634. End
  1635. End If
  1636. Catch ex As Exception
  1637. MsgBox("Your Skype account must be online!")
  1638. End Try
  1639. End Sub
  1640. Public Function parseTelNum(ByVal input As String, ByVal defaultIntl As String, ByVal defaultArea As String)
  1641. Dim result As String
  1642. result = input.Replace("-", " ")
  1643. If result.StartsWith("0") Then
  1644. Return "+" & defaultIntl & result.Substring(1)
  1645. ElseIf result.StartsWith("+") Then
  1646. Return result
  1647. Else
  1648. Return "+" & defaultIntl & defaultArea & result
  1649. End If
  1650. End Function
  1651. Private Sub btnCall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCall.Click
  1652. If btnCall.Text = "Call" Then
  1653. If txtCallee.Text = " " Then
  1654. Exit Sub
  1655. End If
  1656. If radTel.Checked = True Then
  1657. Try
  1658. oCall = oSkype.PlaceCall(parseTelNum(txtCallee.Text, "972", "2"))
  1659. btnCall.Text = "Hang up"
  1660. Catch ex As Exception
  1661. MsgBox("Couldn't place the call." & vbCrLf & "Please make sure the input you entered is valid!")
  1662. End Try
  1663. ElseIf radCell.Checked = True Then
  1664. oCall = oSkype.PlaceCall(parseTelNum(txtCallee.Text, "972", "52"))
  1665. Else
  1666. oCall = oSkype.PlaceCall(txtCallee.Text)
  1667. Else
  1668. oCall.Finish()
  1669. btnCall.Text = "Call"
  1670. End If
  1671. End Sub
  1672. Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
  1673. If txtCallee.Text = " " Or txtMsg.Text = " " Then
  1674. Exit Sub
  1675. End If
  1676. If radTel.Checked = True Then
  1677. Try
  1678. oSkype.SendSms(parseTelNum(txtCallee.Text, "972", "2"), txtMsg.Text)
  1679. txtMsg.Text = ""
  1680. Catch ex As Exception
  1681. MsgBox("Coudn't send the SMS." & vbCrLf & "Please make sure the input you entered is valid!")
  1682. End Try
  1683. ElseIf radCell.Checked = True Then
  1684. oSkype.SendSms(parseTelNum(txtCallee.Text, "972", "52"), txtMsg.Text)
  1685. Else
  1686. oSkype.SendMessage(txtCallee.Text, txtMsg.Text)
  1687. MsgBox("Couldn't sent the message." & vbCrLf & "Please make sure the input you entered is valid!")
  1688. End Sub
  1689. Private Sub ChatTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChatTimer.Tick
  1690. txtChat.Text = ""
  1691. If txtCallee.Text <> "" Then
  1692. oChat = oSkype.CreateChatWith(txtCallee.Text)
  1693. Try
  1694. Dim temp = oChat.Messages
  1695. Catch ex As Exception
  1696. txtChat.Text = "No such username or no chat available." & vbCrLf & ex.ToString
  1697. Exit Sub
  1698. End Try
  1699. For Each oMsg As SKYPE4COMLib.ChatMessage In oChat.Messages
  1700. If Not oMsg.Body.ToString.StartsWith("<pa") And oMsg.Body.ToString <> "" Then
  1701. txtChat.Text = txtChat.Text & vbCrLf & oMsg.Sender.FullName & ": " & oMsg.Body
  1702. End If
  1703. Next
  1704. oSkype.ResetCache()
  1705. End If
  1706. End Sub
  1707.  
  1708. 47 email validation
  1709.  
  1710. Imports System.Text.RegularExpressions
  1711.  
  1712. Function EmailAddressCheck(ByVal emailAddress As String) As Boolean
  1713.  
  1714. Dim pattern As String = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"
  1715. Dim emailAddressMatch As Match = Regex.Match(emailAddress, pattern)
  1716. If emailAddressMatch.Success Then
  1717. EmailAddressCheck = True
  1718. Else
  1719. EmailAddressCheck = False
  1720. End If
  1721.  
  1722. End Function
  1723.  
  1724. 48 class for getting hardware info
  1725.  
  1726. Imports System
  1727. Imports System.Management
  1728.  
  1729. Public Class clsComputerInfo
  1730.  
  1731. Friend Function GetProcessorId() As String
  1732. Dim strProcessorId As String = String.Empty
  1733. Dim query As New SelectQuery("Win32_processor")
  1734. Dim search As New ManagementObjectSearcher(query)
  1735. Dim info As ManagementObject
  1736.  
  1737. For Each info In search.Get()
  1738. strProcessorId = info("processorId").ToString()
  1739. Next
  1740. Return strProcessorId
  1741.  
  1742. End Function
  1743.  
  1744. Friend Function GetMACAddress() As String
  1745.  
  1746. Dim mc As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")
  1747. Dim moc As ManagementObjectCollection = mc.GetInstances()
  1748. Dim MACAddress As String = String.Empty
  1749. For Each mo As ManagementObject In moc
  1750.  
  1751. If (MACAddress.Equals(String.Empty)) Then
  1752. If CBool(mo("IPEnabled")) Then MACAddress = mo("MacAddress").ToString()
  1753.  
  1754. mo.Dispose()
  1755. End If
  1756. MACAddress = MACAddress.Replace(":", String.Empty)
  1757.  
  1758. Next
  1759. Return MACAddress
  1760. End Function
  1761.  
  1762. Friend Function GetVolumeSerial(Optional ByVal strDriveLetter As String = "C") As String
  1763.  
  1764. Dim disk As ManagementObject = New ManagementObject(String.Format("win32_logicaldisk.deviceid=""{0}:""", strDriveLetter))
  1765. disk.Get()
  1766. Return disk("VolumeSerialNumber").ToString()
  1767. End Function
  1768.  
  1769. Friend Function GetMotherBoardID() As String
  1770.  
  1771. Dim strMotherBoardID As String = String.Empty
  1772. Dim query As New SelectQuery("Win32_BaseBoard")
  1773. Dim search As New ManagementObjectSearcher(query)
  1774. Dim info As ManagementObject
  1775. For Each info In search.Get()
  1776.  
  1777. strMotherBoardID = info("SerialNumber").ToString()
  1778.  
  1779. Next
  1780. Return strMotherBoardID
  1781.  
  1782. End Function
  1783.  
  1784. End Class
  1785.  
  1786. 49 clipboard
  1787.  
  1788. My.Computer.Clipboard.SetAudio()
  1789. My.Computer.Clipboard.SetData()
  1790. My.Computer.Clipboard.SetDataObject()
  1791. My.Computer.Clipboard.SetFileDropList()
  1792. My.Computer.Clipboard.SetImage()
  1793. My.Computer.Clipboard.SetText()
  1794.  
  1795. My.Computer.Clipboard.GetAudioStream()
  1796. My.Computer.Clipboard.GetData()
  1797. My.Computer.Clipboard.GetDataObject()
  1798. My.Computer.Clipboard.GetFileDropList()
  1799. My.Computer.Clipboard.GetImage()
  1800. My.Computer.Clipboard.GetText()
  1801.  
  1802. My.Computer.Clipboard.ContainsAudio()
  1803. My.Computer.Clipboard.ContainsData()
  1804. My.Computer.Clipboard.ContainsFileDropList()
  1805. My.Computer.Clipboard.ContainsImage()
  1806. My.Computer.Clipboard.ContainsText()
  1807.  
  1808. 50 see folder : vb pdf class, to manipulate pdf's
  1809.  
  1810. 51 get pixel color ( in an image ) by moti barski :
  1811. Public Class Form1 ' code amped by .paul
  1812. Dim curPixelX As Integer = 0
  1813. Dim curPixelY As Integer = 0
  1814. Dim r1, g1, b1 As Integer
  1815. Dim curColorChar As Char = Nothing
  1816. Dim bm As Bitmap
  1817. Sub RGB_breakerBuster(ByVal inColor As Color, ByRef red As Integer, ByRef green As Integer, ByRef blue As Integer)
  1818. ' returns value of red,green,blue in a pixel of a bitmap as integers
  1819. red = inColor.R
  1820. green = inColor.G
  1821. blue = inColor.B
  1822. End Sub
  1823. Public Function getPixelColor(ByVal r As Integer, ByVal g As Integer, ByVal b As Integer) As Char
  1824. ' r= red, g = green, b = blue
  1825. Dim colorchar As Char
  1826. If r > 245 And g > 245 And b > 245 Then
  1827. colorchar = "w" ' white
  1828. ElseIf r < 20 And g < 20 And b < 20 Then
  1829. colorchar = "k" ' black (kuro in japanese)
  1830. ElseIf r > g And g > b And g < 100 Then
  1831. colorchar = "r" ' red
  1832. ElseIf r > g And g > b And g > 200 Then
  1833. colorchar = "y" ' yellow
  1834. ElseIf r > g And g > b And 100 < g < 200 Then
  1835. colorchar = "o" 'orange
  1836. ElseIf (g > r And r > b) Or (g > b And b > r) Then
  1837. colorchar = "g" 'green
  1838. ElseIf b > g And g > r Then
  1839. colorchar = "b" 'blue
  1840. ElseIf (b > r And r > g) Or (r > b And g < 20) Then
  1841. colorchar = "v" ' violet
  1842. Else
  1843. colorchar = "u" ' yet undefined
  1844. End If
  1845. Return colorchar
  1846. End Function
  1847. Sub colorLegend()
  1848. ' converts color char to the color name
  1849. ' label2 = getPixelColor(r1, g1, b1) 1st colorchar
  1850. ' label3 = color represented by colorchar
  1851. Select Case Label2.Text
  1852. Case "w"
  1853. Label3.Text = "white"
  1854.  
  1855. Case "k"
  1856.  
  1857. Label3.Text = "black"
  1858. Case "r"
  1859. Label3.Text = "red"
  1860. Case "y"
  1861. Label3.Text = "yellow"
  1862. Case "o"
  1863. Label3.Text = "orange"
  1864. Case "g"
  1865. Label3.Text = "green"
  1866. Case "b"
  1867. Label3.Text = "blue"
  1868. Case "v"
  1869. Label3.Text = "violate"
  1870. Case Else
  1871.  
  1872. End Select
  1873.  
  1874. End Sub
  1875. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  1876. Try
  1877. TextBox1.Text = bm.GetPixel(curPixelX, curPixelY).ToString()
  1878. RGB_breakerBuster(bm.GetPixel(curPixelX, curPixelY), r1, g1, b1)
  1879. TextBox2.Text = r1 & " " & g1 & " " & b1
  1880. bm.SetPixel(curPixelX, curPixelY, Color.Black)
  1881. PictureBox1.Image = bm
  1882. curPixelX += 1
  1883. Label2.Text = getPixelColor(r1, g1, b1)
  1884. colorLegend()
  1885. Catch ex As Exception
  1886. Timer1.Enabled = False
  1887. MsgBox("done")
  1888. End Try
  1889.  
  1890. End Sub
  1891.  
  1892. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  1893. Timer1.Enabled = Not Timer1.Enabled
  1894. bm = PictureBox1.Image
  1895. curPixelY = bm.Height \ 2
  1896. End Sub
  1897. End Class
  1898.  
  1899. 52 move, delete, copy :
  1900. system.io.file.move(file to move, move to ) 'file paths as strings
  1901. system.io.file.delete(file to delete) 'file paths
  1902. system.io.file.copy(file to copy, copy to ) 'file paths
  1903.  
  1904. 53 check is user is conected to the internet
  1905. internet explorer (IE) 5 or above must be installed.
  1906.  
  1907. Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _
  1908. Alias "InternetGetConnectedStateExA" (ByRef lpdwFlags As Long, _
  1909. ByVal lpszConnectionName As String, _
  1910. ByVal dwNameLen As Long, ByVal dwReserved As Long) As Long
  1911.  
  1912.  
  1913. Private Function IsConnected() As Boolean
  1914. Dim sConnectionNameBuffer As String
  1915. Dim dwFlags As Long
  1916.  
  1917. sConnectionNameBuffer = String$(513, 0)
  1918. IsConnected = InternetGetConnectedStateEx(dwFlags, sConnectionNameBuffer, 512, 0&)
  1919. End Function
  1920. 'in a sub or button click event :
  1921. If IsConnected = True Then
  1922. MsgBox "You are connected to the internet."
  1923. Else
  1924. MsgBox "You are not connected."
  1925. End If
  1926.  
  1927. 54 scanner
  1928.  
  1929. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  1930.  
  1931. Dim I As WIA.CommonDialog
  1932. I = New WIA.CommonDialog
  1933. Dim IMG As WIA.ImageFile
  1934.  
  1935.  
  1936.  
  1937. IMG = I.ShowAcquireImage(, , , , True, )
  1938. IMG.SaveFile("c:\img.jpg")
  1939. PictureBox1.ImageLocation = "c:\img.jpg"
  1940. End Sub
  1941.  
  1942. 55 Trial Period :
  1943.  
  1944. posted by techgnome of vbf
  1945.  
  1946. this disables program x days after prime activation :
  1947.  
  1948. setup - Project properties, settings, create a user scoped setting "UsageDates" Set the type to
  1949. "Specialized.StringCollection" and leave the default value blank
  1950.  
  1951. in the code :
  1952.  
  1953. 'Dim usageDatesLeft As Int16 = 3 3 days for the trial version
  1954.  
  1955.  
  1956.  
  1957. Private Function CheckDate(ByVal dateToCheck As Date) As Boolean
  1958. 'In reality, CheckDate would get the date (current date) itself and not have it passed in
  1959. Dim retValue As Boolean = False 'Fail safe, default to false
  1960. Dim usageDatesLeft As Int16 = 3 ' set it to 4 just for testing
  1961. 'Dim usageDatesLeft As Int16 = 30 ' set this to the number of days of application access
  1962.  
  1963. 'Hash the date
  1964. Dim hashedDate As String = HashDate(dateToCheck)
  1965. 'Check to see if the hash value exists in the UsageDates
  1966.  
  1967. 'Initialize the container if necessary
  1968. If My.Settings.UsageDates Is Nothing Then
  1969. My.Settings.UsageDates = New System.Collections.Specialized.StringCollection
  1970. End If
  1971.  
  1972. If My.Settings.UsageDates.Contains(hashedDate) Then
  1973. 'then we are ok... it's already been checked
  1974. retValue = True
  1975. usageDatesLeft -= My.Settings.UsageDates.Count
  1976.  
  1977. 'sanity check... if the system date is backed up to a previous date in the list, but not the last date
  1978. If usageDatesLeft <= 0 AndAlso My.Settings.UsageDates.IndexOf(hashedDate) <> My.Settings.UsageDates.Count - 1 Then
  1979. retValue = False
  1980. End If
  1981. Else
  1982. If My.Settings.UsageDates.Count < usageDatesLeft Then
  1983. My.Settings.UsageDates.Add(hashedDate)
  1984. End If
  1985. usageDatesLeft -= My.Settings.UsageDates.Count
  1986.  
  1987.  
  1988. 'If not, and the remining count has "slots" open, add it
  1989. If usageDatesLeft > 0 Then
  1990. retValue = True
  1991. Else
  1992. 'If not and tree are no more slots, tell user, exit app
  1993. retValue = False
  1994. End If
  1995.  
  1996. End If
  1997. 'Display to the user how many days are remianing:
  1998. MessageBox.Show(String.Format("You have {0} day(s) remaining.", usageDatesLeft))
  1999.  
  2000. Return retValue
  2001. End Function
  2002.  
  2003. Private Function HashDate(ByVal dateToHash As Date) As String
  2004. 'Get a hash object
  2005. Dim hasher As System.Security.Cryptography.MD5 = System.Security.Cryptography.MD5.Create()
  2006. 'Take date, make it a Long date and hash it
  2007. Dim data As Byte() = hasher.ComputeHash(System.Text.Encoding.Default.GetBytes(dateToHash.ToLongDateString()))
  2008. ' Create a new Stringbuilder to collect the bytes
  2009. ' and create a string.
  2010. Dim sBuilder As New System.Text.StringBuilder()
  2011.  
  2012. ' Loop through each byte of the hashed data
  2013. ' and format each one as a hexadecimal string.
  2014. Dim idx As Integer
  2015. For idx = 0 To data.Length - 1
  2016. sBuilder.Append(data(idx).ToString("x2"))
  2017. Next idx
  2018.  
  2019. Return sBuilder.ToString
  2020.  
  2021. End Function
  2022.  
  2023. in form load event or other event :
  2024. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2025. Dim aCount As Integer = 0
  2026. Dim loopIt As Boolean = True
  2027. 'My.Settings.Reset() 'This is here for design time support... otherwise you won't get your app to run agin
  2028.  
  2029. Do While loopIt
  2030. MessageBox.Show(String.Format("Checking Date: {0}.", Date.Now.AddDays(aCount)))
  2031. loopIt = CheckDate(Date.Now.AddDays(aCount))
  2032. If Not loopIt Then
  2033. MessageBox.Show("Trial Period Ended! Application closing!")
  2034. Me.Close()
  2035. Else
  2036. MessageBox.Show("You can keep using the app")
  2037. End If
  2038. aCount += 1
  2039. Loop
  2040.  
  2041. End Sub
  2042.  
  2043. 56 google translate api
  2044.  
  2045. download :
  2046. google translate api 0.4 alpha
  2047. create a new project, add 2 textboxes, and a button
  2048. project, add reference, browse to (in the downloaded bin folder) googleTranslateAPI.dll and NewtonJsoft.dll
  2049. and add them.
  2050.  
  2051. double click the button and paste this code in the button event code :
  2052.  
  2053. if textbox2.text = ""
  2054. dim Translator as new google.API.Translate.TranslateClient("")
  2055. textbox2.text = Translator.TranslateAndDetect(textbox1.text,"fr","") ' fr for france
  2056.  
  2057. 57 custom progressBar
  2058. http://www.codeproject.com/KB/cpp/XpProgressBar.aspx
  2059.  
  2060. 58 Run external files exe
  2061.  
  2062. Process.Start(".exe path here")
  2063.  
  2064. 59 backgroundworker
  2065.  
  2066. this control runs code simultaneously with other backroundworkers and the main codes running
  2067. 1 from toolbox add a backroundworker control (set false properties to true as needed)
  2068. 2 the code backroundworker.runWorkerAsync() - will start it
  2069. 3 backroundworker.cancelAsync() - will stop it
  2070. 4 events (from near the control properties in the form design window) "
  2071. 4.1 bw do work : here you type code that runs on the backroundworker (thread)
  2072. threading.thread.sleep(seconds) pause thread
  2073. backroundworker.cancellation pending - returns true if backroundworker.cancelAsync() was run
  2074. 4.2 backroundworker progress changed :
  2075. e.progresspercentage : return progress %
  2076.  
  2077. 60 form fade to black
  2078.  
  2079. Public Class Form1
  2080.  
  2081. Private Sub Button1_Click(ByVal sender As System.Object, _
  2082. ByVal e As System.EventArgs) Handles Button1.Click
  2083.  
  2084. '//start fade
  2085. Me.Timer1.Enabled = True
  2086. End Sub
  2087.  
  2088. Private Sub Timer1_Tick(ByVal sender As System.Object, _
  2089. ByVal e As System.EventArgs) Handles Timer1.Tick
  2090. Dim R As Integer = Me.BackColor.R
  2091. Dim G As Integer = Me.BackColor.G
  2092. Dim B As Integer = Me.BackColor.B
  2093.  
  2094. If R > 0 Then
  2095. R = Me.BackColor.R - 1
  2096. Me.BackColor = Color.FromArgb(R, G, B)
  2097. End If
  2098.  
  2099. If G > 0 Then
  2100. G = Me.BackColor.G - 1
  2101. Me.BackColor = Color.FromArgb(R, G, B)
  2102. End If
  2103.  
  2104. If B > 0 Then
  2105. B = Me.BackColor.B - 1
  2106. Me.BackColor = Color.FromArgb(R, G, B)
  2107. End If
  2108.  
  2109. If R = 0 AndAlso G = 0 AndAlso B = 0 Then
  2110.  
  2111. '//end fade
  2112. Me.Timer1.Enabled = False
  2113. End If
  2114.  
  2115. End Sub
  2116.  
  2117. End Class
  2118.  
  2119. 61 get files name
  2120. Imports System.IO
  2121.  
  2122. Dim strFileSize As String = ""
  2123. Dim di As New IO.DirectoryInfo("C:\temp")
  2124. Dim aryFi As IO.FileInfo() = di.GetFiles("*.txt")
  2125. Dim fi As IO.FileInfo
  2126.  
  2127. For Each fi In aryFi
  2128. strFileSize = (Math.Round(fi.Length / 1024)).ToString()
  2129. Console.WriteLine("File Name: {0}", fi.Name)
  2130. Console.WriteLine("File Full Name: {0}", fi.FullName)
  2131. Console.WriteLine("File Size (KB): {0}", strFileSize )
  2132. Console.WriteLine("File Extension: {0}", fi.Extension)
  2133. Console.WriteLine("Last Accessed: {0}", fi.LastAccessTime)
  2134. Console.WriteLine("Read Only: {0}", (fi.Attributes.ReadOnly = True).ToString)
  2135. Next
  2136. 62 rename a file
  2137. my.computer.filesystem.renamefile("oldfile path name","new.whatever")
  2138. dim open as new openfiledialog
  2139. open.showdialog()
  2140. textbox1.text = open.filename
  2141.  
  2142. 63 list directories (folders)
  2143. Sub ListDirectories(ByVal Path As String)
  2144.  
  2145. Dim di As New IO.DirectoryInfo(Path)
  2146.  
  2147. If di.Attributes <> IO.FileAttributes.Hidden Then
  2148.  
  2149. For Each file In di.GetFiles
  2150. Console.WriteLine(file.FullName)
  2151. Next
  2152.  
  2153. For Each folder In di.GetDirectories
  2154. ListDirectories(folder.FullName)
  2155. Next
  2156.  
  2157. End If
  2158. End Sub
  2159. 64 Capture Images From 2 defferent webcams VideoLab :
  2160.  
  2161. 4.1 install your usb webcams drivers from its cd
  2162. 4.2 download and install .net (framework) 2.0
  2163. download and install videoLab and its pdf manual from:
  2164. mitov dot com
  2165. 4.3 follow the manual till you have the image capture control on your vb.net toolbox
  2166. 4.4 connect usb webcams
  2167. you will then add 2 DSCapture controls to thee form and from theire little arrow set to the respective webcam
  2168. , add 2 genericFilter, finally set the video in's output pin property to the respective genericFilter (it's input pin should now
  2169. show the DSCapture)
  2170.  
  2171. Private Sub genericFilter1_ProcessData(Sender As Object, Args As Mitov.VideoLab.VideoProcessDataEventArgs)
  2172. ' Capture Image.
  2173. Dim ABitmap As System.Drawing.Bitmap = Args.InBuffer.ToBitmap()
  2174.  
  2175. ' Draw Frame No.
  2176. Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(ABitmap)
  2177. Dim ABrush As System.Drawing.SolidBrush = New SolidBrush(Color.White)
  2178.  
  2179. g.DrawString(m_FrameNo.ToString(), Font, ABrush, 0, 0)
  2180.  
  2181. m_FrameNo += 1
  2182.  
  2183. ' Show the bitmap.
  2184. pictureBox1.Image = ABitmap
  2185. End Sub
  2186.  
  2187. you can use DSImageDisplay instead of generic filter
  2188.  
  2189. 65 Mouse Move Powered Volume Control
  2190. add 3 group boxes
  2191.  
  2192. Imports System.Runtime.InteropServices
  2193. Public Class Form1
  2194. Private Const APPCOMMAND_VOLUME_MUTE As Integer = &H80000
  2195. Private Const APPCOMMAND_VOLUME_UP As Integer = &HA0000
  2196. Private Const APPCOMMAND_VOLUME_DOWN As Integer = &H90000
  2197. Private Const WM_APPCOMMAND As Integer = &H319
  2198. <DllImport("user32.dll")> Public Shared Function SendMessageW(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
  2199. End Function
  2200.  
  2201. Private Sub GroupBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles GroupBox1.MouseMove
  2202. SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr(APPCOMMAND_VOLUME_UP))
  2203. End Sub
  2204.  
  2205. Private Sub GroupBox2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles GroupBox2.MouseMove
  2206. SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr(APPCOMMAND_VOLUME_DOWN))
  2207. End Sub
  2208.  
  2209. Private Sub GroupBox3_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles GroupBox3.MouseMove
  2210. SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr(APPCOMMAND_VOLUME_MUTE))
  2211. End Sub
  2212.  
  2213. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2214. Do Until Me.Width = "572"
  2215. Me.Width = Me.Width + 1
  2216. Loop
  2217. Button1.Visible = False
  2218. Button2.Visible = True
  2219. End Sub
  2220.  
  2221. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  2222. Button2.Visible = False
  2223. End Sub
  2224.  
  2225. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  2226. Do Until Me.Width = "310"
  2227. Me.Width = Me.Width - 1
  2228. Loop
  2229. Button1.Visible = True
  2230. Button2.Visible = False
  2231. End Sub
  2232. End Class
  2233.  
  2234. 66 VB NET Using Google Maps on your application
  2235.  
  2236. add text boxes to hold street, city, state and zip
  2237. Add search button
  2238. add : in the code first line
  2239. Imports System.Text
  2240.  
  2241. in the button click event (double click it and paste) :
  2242.  
  2243. Try
  2244. Dim streetaddr As String = ""
  2245. Dim cityaddr As String = ""
  2246. Dim stateaddr As String = ""
  2247. Dim zipaddr As String = ""
  2248. Dim AddrToSearch As New StringBuilder()
  2249. AddrToSearch.Append("http://maps.google.com/maps?q=")
  2250.  
  2251. ' if there is street entry
  2252. If txtStreet.Text <> "" Then
  2253. streetaddr = txtStreet.Text.Replace(" ", "+")
  2254. AddrToSearch.Append(street + "," & "+")
  2255. End If
  2256.  
  2257. ' if there is city entry
  2258. If txtCity.Text <> "" Then
  2259. cityaddr = txtCity.Text.Replace(" ", "+")
  2260. AddrToSearch.Append(city + "," & "+")
  2261. End If
  2262.  
  2263. ' if there is state
  2264. If txtState.Text <> "" Then
  2265. stateaddr = txtState.Text.Replace(" ", "+")
  2266. AddrToSearch.Append(state + "," & "+")
  2267. End If
  2268.  
  2269. ' if there is zip code
  2270. If txtZipCode.Text <> "" Then
  2271. zipaddr = txtZipCode.Text.ToString()
  2272. AddrToSearch.Append(zip)
  2273. End If
  2274.  
  2275. ' pass the AddrToSearch value to web browser control
  2276. wbrowser.Navigate(AddrToSearch.ToString())
  2277.  
  2278. Catch ex As Exception
  2279.  
  2280. MessageBox.Show(ex.Message.ToString(), "Problem encountered while retrieving google map")
  2281.  
  2282. End Try
  2283.  
  2284. search the map by latitude and longitude add theire textboxes and button in it's event paste :
  2285.  
  2286. Try
  2287. Dim latitude As String = ""
  2288. Dim longitude As String = ""
  2289. Dim AddrToSearch As New StringBuilder()
  2290. AddrToSearch.Append("http://maps.google.com/maps?q=")
  2291.  
  2292. ' if there is latitude
  2293. If txtLatitude.Text <> "" Then
  2294. latitude = txtLatitude.Text
  2295. AddrToSearch.Append(latitude & "%2C")
  2296. End If
  2297.  
  2298. ' if there is longitude
  2299. If txtLongitude .Text <> "" Then
  2300. longitude = txtLongitude .Text
  2301. AddrToSearch.Append(longitude)
  2302. End If
  2303.  
  2304. ' pass the AddrToSearch value to web browser control
  2305. wbrowser.Navigate(AddrToSearch.ToString())
  2306.  
  2307. Catch ex As Exception
  2308.  
  2309. MessageBox.Show(ex.Message.ToString(), "Problem encountered while retrieving google map")
  2310.  
  2311. End Try
  2312.  
  2313. 67 vb batch file maker
  2314.  
  2315. http://yotamarker.justforum.net/t7-vbnet-batch-coder-compiler
  2316. by Smasherx74
  2317.  
  2318. Public Class Form1
  2319.  
  2320. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2321.  
  2322. SaveFileDialog1.Title = "Save"
  2323. SaveFileDialog1.Filter = "Batch File (*.bat)|*.bat"
  2324. If SaveFileDialog1.ShowDialog = System.Windows.Forms.DialogResult.OK Then
  2325. RichTextBox1.SaveFile(SaveFileDialog1.FileName, Windows.Forms.RichTextBoxStreamType.PlainText)
  2326. End If
  2327. End Sub
  2328.  
  2329. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  2330. SaveFileDialog1.FileName = "Test.bat"
  2331. RichTextBox1.SaveFile(SaveFileDialog1.FileName, Windows.Forms.RichTextBoxStreamType.PlainText)
  2332.  
  2333.  
  2334. Dim response As New DialogResult
  2335. response = MessageBox.Show("Testing batch file will run the .bat file. Whatever the code does will be executed on your computer, are you sure you want to continue?", "Warning!", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
  2336. If response = DialogResult.Yes Then
  2337. Process.Start("Test.bat")
  2338. Else
  2339.  
  2340. End If
  2341.  
  2342. End Sub
  2343.  
  2344. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  2345. RichTextBox1.Text = ""
  2346.  
  2347. End Sub
  2348.  
  2349. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  2350. Form2.ShowDialog()
  2351. End Sub
  2352.  
  2353.  
  2354. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  2355. SaveFileDialog1.FileName = "Project.bat"
  2356. RichTextBox1.SaveFile(SaveFileDialog1.FileName, Windows.Forms.RichTextBoxStreamType.PlainText)
  2357.  
  2358.  
  2359. If WebBrowser1.ReadyState = WebBrowserReadyState.Complete = True Then
  2360. WebBrowser1.Document.GetElementById("userfile").InvokeMember("click")
  2361. Threading.Thread.Sleep(100)
  2362. For Each elem As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
  2363. If elem.GetAttribute("value") = "Convert" Then
  2364. elem.InvokeMember("click")
  2365. End If
  2366.  
  2367. Next
  2368. End If
  2369.  
  2370.  
  2371. Const OneSec As Double = 1.0# / (1440.0# * 60.0#)
  2372. Dim dblWaitTil As Date
  2373. Now.AddSeconds(OneSec)
  2374. dblWaitTil = Now.AddSeconds(OneSec).AddSeconds(10)
  2375. Do Until Now > dblWaitTil
  2376. MsgBox("Compiling Batch file please wait...", MsgBoxStyle.Information)
  2377. Loop
  2378.  
  2379. If WebBrowser1.ReadyState = WebBrowserReadyState.Complete = True Then
  2380. For Each unit As HtmlElement In WebBrowser1.Document.GetElementsByTagName("a")
  2381. If unit.InnerText = "Download" Then
  2382. unit.InvokeMember("click")
  2383. End If
  2384. Next
  2385. End If
  2386.  
  2387. End Sub
  2388.  
  2389. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  2390. WebBrowser1.Navigate("http://www.f2ko.de/programs.php?lang=en&pid=ob2e")
  2391. End Sub
  2392.  
  2393. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
  2394. If TextBox1.Text = "0" Then
  2395. RichTextBox1.BackColor = Color.Black
  2396. End If
  2397.  
  2398. If TextBox1.Text = "1" Then
  2399. RichTextBox1.BackColor = Color.Blue
  2400. End If
  2401.  
  2402. If TextBox1.Text = "2" Then
  2403. RichTextBox1.BackColor = Color.Green
  2404. End If
  2405.  
  2406. If TextBox1.Text = "3" Then
  2407. RichTextBox1.BackColor = Color.Aqua
  2408. End If
  2409.  
  2410. If TextBox1.Text = "4" Then
  2411. RichTextBox1.BackColor = Color.Red
  2412. End If
  2413.  
  2414. If TextBox1.Text = "5" Then
  2415. RichTextBox1.BackColor = Color.Purple
  2416. End If
  2417.  
  2418. If TextBox1.Text = "6" Then
  2419. RichTextBox1.BackColor = Color.Yellow
  2420. End If
  2421.  
  2422. If TextBox1.Text = "7" Then
  2423. RichTextBox1.BackColor = Color.White
  2424. End If
  2425.  
  2426. If TextBox1.Text = "8" Then
  2427. RichTextBox1.BackColor = Color.Gray
  2428. End If
  2429.  
  2430. If TextBox1.Text = "9" Then
  2431. RichTextBox1.BackColor = Color.Blue
  2432. End If
  2433.  
  2434. If TextBox1.Text = "A" Then
  2435. RichTextBox1.BackColor = Color.Green
  2436. End If
  2437.  
  2438. If TextBox1.Text = "B" Then
  2439. RichTextBox1.BackColor = Color.Aqua
  2440. End If
  2441.  
  2442. If TextBox1.Text = "C" Then
  2443. RichTextBox1.BackColor = Color.Red
  2444. End If
  2445.  
  2446. If TextBox1.Text = "D" Then
  2447. RichTextBox1.BackColor = Color.Purple
  2448. End If
  2449.  
  2450. If TextBox1.Text = "E" Then
  2451. RichTextBox1.BackColor = Color.Yellow
  2452. End If
  2453.  
  2454. If TextBox1.Text = "F" Then
  2455. RichTextBox1.BackColor = Color.White
  2456. End If
  2457. If TextBox2.Text = "0" Then
  2458. RichTextBox1.ForeColor = Color.Black
  2459. End If
  2460.  
  2461. If TextBox2.Text = "1" Then
  2462. RichTextBox1.ForeColor = Color.Blue
  2463. End If
  2464.  
  2465. If TextBox2.Text = "2" Then
  2466. RichTextBox1.ForeColor = Color.Green
  2467. End If
  2468.  
  2469. If TextBox2.Text = "3" Then
  2470. RichTextBox1.ForeColor = Color.Aqua
  2471. End If
  2472.  
  2473. If TextBox2.Text = "4" Then
  2474. RichTextBox1.ForeColor = Color.Red
  2475. End If
  2476.  
  2477. If TextBox2.Text = "5" Then
  2478. RichTextBox1.ForeColor = Color.Purple
  2479. End If
  2480.  
  2481. If TextBox2.Text = "6" Then
  2482. RichTextBox1.ForeColor = Color.Yellow
  2483. End If
  2484.  
  2485. If TextBox2.Text = "7" Then
  2486. RichTextBox1.ForeColor = Color.White
  2487. End If
  2488.  
  2489. If TextBox2.Text = "8" Then
  2490. RichTextBox1.ForeColor = Color.Gray
  2491. End If
  2492.  
  2493. If TextBox2.Text = "9" Then
  2494. RichTextBox1.ForeColor = Color.Blue
  2495. End If
  2496.  
  2497. If TextBox2.Text = "A" Then
  2498. RichTextBox1.ForeColor = Color.Green
  2499. End If
  2500.  
  2501. If TextBox2.Text = "B" Then
  2502. RichTextBox1.ForeColor = Color.Aqua
  2503. End If
  2504.  
  2505. If TextBox2.Text = "C" Then
  2506. RichTextBox1.ForeColor = Color.Red
  2507. End If
  2508.  
  2509. If TextBox2.Text = "D" Then
  2510. RichTextBox1.ForeColor = Color.Purple
  2511. End If
  2512.  
  2513. If TextBox2.Text = "E" Then
  2514. RichTextBox1.ForeColor = Color.Yellow
  2515. End If
  2516.  
  2517. If TextBox2.Text = "F" Then
  2518. RichTextBox1.ForeColor = Color.White
  2519. End If
  2520.  
  2521. End Sub
  2522. End Class
  2523.  
  2524. 68 get html source
  2525.  
  2526. with webbrowser control :
  2527. WebBrowser1.DocumentText
  2528.  
  2529. 69 delete ftp file
  2530.  
  2531. public function DeleteFileOnServer(serverUri as Uri) as Boolean
  2532.  
  2533. ' The serverUri parameter should use the ftp:// scheme.
  2534. ' It contains the name of the server file that is to be deleted.
  2535. ' Example: ftp://contoso.com/someFile.txt.
  2536. '
  2537.  
  2538. if serverUri.Scheme <> Uri.UriSchemeFtp Then
  2539. return false
  2540. end if
  2541.  
  2542. ' Get the object used to communicate with the server.
  2543. Dim request as FtpWebRequest = WebRequest.Create(serverUri)
  2544.  
  2545. request.Method = WebRequestMethods.Ftp.DeleteFile
  2546.  
  2547. Dim response as FtpWebREsponse = request.GetResponse()
  2548. Messagebox.Show(string.format("Delete status: {0}",response.StatusDescription))
  2549. response.Close()
  2550. return true
  2551. End function
  2552.  
  2553. 70 links highlight
  2554. Private Sub RichTextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
  2555.  
  2556. Dim index As Integer = Me.RichTextBox1.Find("tutorial") '
  2557. If index <> -1 Then
  2558. Me.RichTextBox1.Find(RichTextBox1.Text)
  2559. Me.RichTextBox1.SelectionBackColor = Color.Yellow
  2560. End If
  2561. End Sub
  2562.  
  2563. 71 detect upload
  2564. Dim properties As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties()
  2565. Dim stat As IcmpV4Statistics = properties.GetIcmpV4Statistics()
  2566. Console.WriteLine(stat.MessagesSent)
  2567. Console.ReadLine()
  2568.  
  2569.  
  2570. VB.NET IMAGE RECOGNITION ( AKA HIGASHI NO EDEN ) VERSION 1
  2571. MADE BY MOTI BARSKI
  2572.  
  2573. Imports System.IO
  2574. Public Class Form1
  2575. Sub RGB_breakerBuster(ByVal inColor As Color, ByRef red As Integer, ByRef green As Integer, ByRef blue As Integer)
  2576. ' returns value of red,green,blue in a pixel of a bitmap as integers
  2577. red = inColor.R
  2578. green = inColor.G
  2579. blue = inColor.B
  2580. End Sub
  2581. Public Function getPixelColor(ByVal r As Integer, ByVal g As Integer, ByVal b As Integer) As Char
  2582. ' r= red, g = green, b = blue
  2583. Dim colorchar As Char
  2584. If r > 245 And g > 245 And b > 245 Then
  2585. colorchar = "w" ' white
  2586. ElseIf r < 20 And g < 20 And b < 20 Then
  2587. colorchar = "k" ' black (kuro in japanese)
  2588. ElseIf r > g And g > b And g < 100 Then
  2589. colorchar = "r" ' red
  2590. ElseIf r > g And g > b And g > 200 Then
  2591. colorchar = "y" ' yellow
  2592. ElseIf r > g And g > b And 100 < g < 200 Then
  2593. colorchar = "o" 'orange
  2594. ElseIf (g > r And r > b) Or (g > b And b > r) Then
  2595. colorchar = "g" 'green
  2596. ElseIf b > g And g > r Then
  2597. colorchar = "b" 'blue
  2598. ElseIf (b > r And r > g) Or (r > b And g < 20) Then
  2599. colorchar = "v" ' violet
  2600. Else
  2601. colorchar = "u" ' yet undefined
  2602. End If
  2603. Return colorchar
  2604. End Function
  2605.  
  2606. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2607. TextBox3.Text = ""
  2608. Dim r1, g1, b1 As Integer
  2609. PictureBox1.ImageLocation = TextBox2.Text ' image path string
  2610. Dim fs As IO.FileStream = New IO.FileStream(TextBox2.Text, IO.FileMode.Open)
  2611. Dim image1 As Image = Image.FromStream(fs)
  2612. fs.Close()
  2613. Dim bm As Bitmap
  2614. bm = image1
  2615. Dim h, w As Integer
  2616. h = bm.Height()
  2617. w = bm.Width()
  2618. Dim jump As Integer
  2619. jump = 35 ' jump ~= sqrt(h*w \ 250), jump < h, jump < w, jump > 1
  2620. Try
  2621. Dim jump2 As Integer
  2622. jump2 = TextBox1.Text
  2623. If jump2 > 1 And jump2 < h And jump2 < w Then
  2624. jump = jump2
  2625. End If
  2626. Catch ex As Exception
  2627.  
  2628. End Try
  2629. Dim recoString As String = "" ' string of image
  2630. Dim prevColor, curColor As Char
  2631. If h > w Then
  2632. h = w
  2633. End If
  2634. Dim xi As Integer
  2635. xi = h \ jump
  2636. For index As Integer = 1 To xi
  2637. recoString &= "_"
  2638. prevColor = "-"
  2639. For j As Integer = 1 To xi
  2640. Try
  2641. RGB_breakerBuster(bm.GetPixel(index * jump, j * jump), r1, g1, b1)
  2642. Catch ex As Exception
  2643. MsgBox(index & " " & j)
  2644. End Try
  2645. curColor = getPixelColor(r1, g1, b1)
  2646. If curColor <> prevColor Then
  2647. recoString &= curColor
  2648. prevColor = curColor
  2649. End If
  2650. Next
  2651. Next
  2652. If recoString.Length > 238 Then
  2653. recoString = recoString.Substring(0, 238)
  2654. End If
  2655. TextBox4.Text = recoString
  2656. If File.Exists("C:\higashiDB\" & recoString & ".txt") Then
  2657. TextBox3.Text = File.ReadAllText("C:\higashiDB\" & recoString & ".txt")
  2658. End If
  2659. End Sub
  2660.  
  2661. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  2662. If TextBox4.Text <> "" Then
  2663. If File.Exists("C:\higashiDB\" & TextBox4.Text & ".txt") Then
  2664. File.Delete("C:\higashiDB\" & TextBox4.Text & ".txt")
  2665. 'File.Delete("path string")
  2666. End If
  2667. File.WriteAllText("C:\higashiDB\" & TextBox4.Text & ".txt", TextBox3.Text)
  2668. End If
  2669. End Sub
  2670. End Class
  2671.  
  2672. walkthrough for using the program :
  2673. add a higashiDB named folder in c:\
  2674. while running the program :
  2675. type image path (+ image name + image ending (like : C:\Documents and Settings\rain\Desktop\pics for higashi vid\1.jpg
  2676. )), click the button 2 times, type description, click save button to save new description for the image.
  2677.  
  2678.  
  2679. vb.net number to japanese count
  2680.  
  2681.  
  2682. Imports System.Math
  2683. Public Class Form1
  2684. Function toKanji(ByVal N As ULong) As String
  2685. Dim kanji As String
  2686. kanji = "enter a number"
  2687. Select Case N.ToString.Length()
  2688. Case 1
  2689. Select Case N
  2690. Case 1
  2691. kanji = "ichi"
  2692. Case 2
  2693. kanji = "ni"
  2694. Case 3
  2695. kanji = "san"
  2696. Case 4
  2697. kanji = "yon"
  2698. Case 5
  2699. kanji = "go"
  2700. Case 6
  2701. kanji = "roku"
  2702. Case 7
  2703. kanji = "nana"
  2704. Case 8
  2705. kanji = "hachi"
  2706. Case 9
  2707. kanji = "kyu"
  2708. Case Else
  2709. kanji = ""
  2710. End Select
  2711. Case 2
  2712. Select Case N \ 10
  2713. Case 1
  2714. kanji = "ju" & " " & toKanji(N Mod 10)
  2715. Case 2
  2716. kanji = "ni-ju" & " " & toKanji(N Mod 10)
  2717. Case 3
  2718. kanji = "san-ju" & " " & toKanji(N Mod 10)
  2719. Case 4
  2720. kanji = "yon-ju" & " " & toKanji(N Mod 10)
  2721. Case 5
  2722. kanji = "go-ju" & " " & toKanji(N Mod 10)
  2723. Case 6
  2724. kanji = "roku-ju" & " " & toKanji(N Mod 10)
  2725. Case 7
  2726. kanji = "nana-ju" & " " & toKanji(N Mod 10)
  2727. Case 8
  2728. kanji = "hachi-ju" & " " & toKanji(N Mod 10)
  2729. Case 9
  2730. kanji = "kyu-ju" & " " & toKanji(N Mod 10)
  2731. Case Else
  2732. kanji = ""
  2733. End Select
  2734. Case 3
  2735. Select Case N \ 100
  2736. Case 1
  2737. kanji = "hyaku" & " " & toKanji(N Mod 100)
  2738. Case 2
  2739. kanji = "ni-hyaku" & " " & toKanji(N Mod 100)
  2740. Case 3
  2741. kanji = "sanbyaku" & " " & toKanji(N Mod 100)
  2742. Case 4
  2743. kanji = "yon-hyaku" & " " & toKanji(N Mod 100)
  2744. Case 5
  2745. kanji = "go-hyaku" & " " & toKanji(N Mod 100)
  2746. Case 6
  2747. kanji = "roppyaku" & " " & toKanji(N Mod 100)
  2748. Case 7
  2749. kanji = "nana-hyaku" & " " & toKanji(N Mod 100)
  2750. Case 8
  2751. kanji = "happyaku" & " " & toKanji(N Mod 100)
  2752. Case 9
  2753. kanji = "kyu-hyaku" & toKanji(N Mod 100)
  2754. Case Else
  2755. kanji = ""
  2756. End Select
  2757. Case 4
  2758. Select Case N \ 1000
  2759. Case 1
  2760. kanji = "sen" & " " & toKanji(N Mod 1000)
  2761. Case 2
  2762. kanji = "ni-sen" & " " & toKanji(N Mod 1000)
  2763. Case 3
  2764. kanji = "san-zen" & " " & toKanji(N Mod 1000)
  2765. Case 4
  2766. kanji = "yon-sen" & " " & toKanji(N Mod 1000)
  2767. Case 5
  2768. kanji = "go-sen" & " " & toKanji(N Mod 1000)
  2769. Case 6
  2770. kanji = "roku-sen" & " " & toKanji(N Mod 1000)
  2771. Case 7
  2772. kanji = "nana-sen" & " " & toKanji(N Mod 1000)
  2773. Case 8
  2774. kanji = "hassen" & " " & toKanji(N Mod 1000)
  2775. Case 9
  2776. kanji = "kyu-sen" & toKanji(N Mod 1000)
  2777. Case Else
  2778. kanji = ""
  2779. End Select
  2780. Case 5
  2781. Select Case N \ 10000
  2782. Case 1
  2783. kanji = "ichi-man" & " " & toKanji(N Mod 10000)
  2784. Case 2
  2785. kanji = "ni-man" & " " & toKanji(N Mod 10000)
  2786. Case 3
  2787. kanji = "san-man" & " " & toKanji(N Mod 10000)
  2788. Case 4
  2789. kanji = "yon-man" & " " & toKanji(N Mod 10000)
  2790. Case 5
  2791. kanji = "go-man" & " " & toKanji(N Mod 10000)
  2792. Case 6
  2793. kanji = "roku-man" & " " & toKanji(N Mod 10000)
  2794. Case 7
  2795. kanji = "nana-man" & " " & toKanji(N Mod 10000)
  2796. Case 8
  2797. kanji = "hachi-man" & " " & toKanji(N Mod 10000)
  2798. Case 9
  2799. kanji = "kyu-man" & toKanji(N Mod 10000)
  2800. Case Else
  2801. kanji = ""
  2802. End Select
  2803. Case 6
  2804. Select Case N \ 100000
  2805. Case 1
  2806. kanji = "ju" & " " & toKanji(N Mod 100000)
  2807. Case 2
  2808. kanji = "ni-ju" & " " & toKanji(N Mod 100000)
  2809. Case 3
  2810. kanji = "san-ju" & " " & toKanji(N Mod 100000)
  2811. Case 4
  2812. kanji = "yon-ju" & " " & toKanji(N Mod 100000)
  2813. Case 5
  2814. kanji = "go-ju" & " " & toKanji(N Mod 100000)
  2815. Case 6
  2816. kanji = "roku-ju" & " " & toKanji(N Mod 100000)
  2817. Case 7
  2818. kanji = "nana-ju" & " " & toKanji(N Mod 100000)
  2819. Case 8
  2820. kanji = "hachi-ju" & " " & toKanji(N Mod 100000)
  2821. Case 9
  2822. kanji = "kyu-ju" & toKanji(N Mod 100000)
  2823. Case Else
  2824. kanji = ""
  2825. End Select
  2826. Case 7
  2827. Select Case N \ 1000000
  2828. Case 1
  2829. kanji = "hyaku" & " " & toKanji(N Mod 1000000)
  2830. Case 2
  2831. kanji = "ni-hyaku" & " " & toKanji(N Mod 1000000)
  2832. Case 3
  2833. kanji = "san-hyaku" & " " & toKanji(N Mod 1000000)
  2834. Case 4
  2835. kanji = "yon-hyaku" & " " & toKanji(N Mod 1000000)
  2836. Case 5
  2837. kanji = "go-hyaku" & " " & toKanji(N Mod 1000000)
  2838. Case 6
  2839. kanji = "roku-hyaku" & " " & toKanji(N Mod 1000000)
  2840. Case 7
  2841. kanji = "nana-hyaku" & " " & toKanji(N Mod 1000000)
  2842. Case 8
  2843. kanji = "hachi-hyaku" & " " & toKanji(N Mod 1000000)
  2844. Case 9
  2845. kanji = "kyu-hyaku" & toKanji(N Mod 1000000)
  2846. Case Else
  2847. kanji = ""
  2848. End Select
  2849. Case 8
  2850. Select Case N \ 10000000
  2851. Case 1
  2852. kanji = "sen" & " " & toKanji(N Mod 10000000)
  2853. Case 2
  2854. kanji = "ni-sen" & " " & toKanji(N Mod 10000000)
  2855. Case 3
  2856. kanji = "sanzen" & " " & toKanji(N Mod 10000000)
  2857. Case 4
  2858. kanji = "yon-sen" & " " & toKanji(N Mod 10000000)
  2859. Case 5
  2860. kanji = "go-sen" & " " & toKanji(N Mod 10000000)
  2861. Case 6
  2862. kanji = "roku-sen" & " " & toKanji(N Mod 10000000)
  2863. Case 7
  2864. kanji = "nana-sen" & " " & toKanji(N Mod 10000000)
  2865. Case 8
  2866. kanji = "hachi-sen" & " " & toKanji(N Mod 10000000)
  2867. Case 9
  2868. kanji = "kyu-sen" & toKanji(N Mod 10000000)
  2869. Case Else
  2870. kanji = ""
  2871. End Select
  2872. Case 9
  2873. Select Case N \ 100000000
  2874. Case 1
  2875. kanji = "ichi-oku" & " " & toKanji(N Mod 100000000)
  2876. Case 2
  2877. kanji = "ni-oku" & " " & toKanji(N Mod 100000000)
  2878. Case 3
  2879. kanji = "san-oku" & " " & toKanji(N Mod 100000000)
  2880. Case 4
  2881. kanji = "yon-oku" & " " & toKanji(N Mod 100000000)
  2882. Case 5
  2883. kanji = "go-oku" & " " & toKanji(N Mod 100000000)
  2884. Case 6
  2885. kanji = "roku-oku" & " " & toKanji(N Mod 100000000)
  2886. Case 7
  2887. kanji = "nana-oku" & " " & toKanji(N Mod 100000000)
  2888. Case 8
  2889. kanji = "hachi-oku" & " " & toKanji(N Mod 100000000)
  2890. Case 9
  2891. kanji = "kyu-oku" & toKanji(N Mod 100000000)
  2892. Case Else
  2893. kanji = ""
  2894. End Select
  2895. Case 10
  2896. Select Case N \ 1000000000
  2897. Case 1
  2898. kanji = "ju" & " " & toKanji(N Mod 1000000000)
  2899. Case 2
  2900. kanji = "ni-ju" & " " & toKanji(N Mod 1000000000)
  2901. Case 3
  2902. kanji = "san-ju" & " " & toKanji(N Mod 1000000000)
  2903. Case 4
  2904. kanji = "yon-ju" & " " & toKanji(N Mod 1000000000)
  2905. Case 5
  2906. kanji = "go-ju" & " " & toKanji(N Mod 1000000000)
  2907. Case 6
  2908. kanji = "roku-ju" & " " & toKanji(N Mod 1000000000)
  2909. Case 7
  2910. kanji = "nana-ju" & " " & toKanji(N Mod 1000000000)
  2911. Case 8
  2912. kanji = "hachi-ju" & " " & toKanji(N Mod 1000000000)
  2913. Case 9
  2914. kanji = "kyu-ju" & toKanji(N Mod 1000000000)
  2915. Case Else
  2916. kanji = ""
  2917. End Select
  2918. Case 11
  2919. Select Case N \ 10000000000
  2920. Case 1
  2921. kanji = "hyaku" & " " & toKanji(N Mod 10000000000)
  2922. Case 2
  2923. kanji = "ni-hyaku" & " " & toKanji(N Mod 10000000000)
  2924. Case 3
  2925. kanji = "sanbyaku" & " " & toKanji(N Mod 10000000000)
  2926. Case 4
  2927. kanji = "yon-hyaku" & " " & toKanji(N Mod 10000000000)
  2928. Case 5
  2929. kanji = "go-hyaku" & " " & toKanji(N Mod 10000000000)
  2930. Case 6
  2931. kanji = "roku-hyaku" & " " & toKanji(N Mod 10000000000)
  2932. Case 7
  2933. kanji = "nana-hyaku" & " " & toKanji(N Mod 10000000000)
  2934. Case 8
  2935. kanji = "hapyaku" & " " & toKanji(N Mod 10000000000)
  2936. Case 9
  2937. kanji = "kyu-hyaku" & toKanji(N Mod 10000000000)
  2938. Case Else
  2939. kanji = ""
  2940. End Select
  2941. Case 12
  2942. Select Case N \ 100000000000
  2943. Case 1
  2944. kanji = "sen" & " " & toKanji(N Mod 100000000000)
  2945. Case 2
  2946. kanji = "ni-sen" & " " & toKanji(N Mod 100000000000)
  2947. Case 3
  2948. kanji = "sanzen" & " " & toKanji(N Mod 100000000000)
  2949. Case 4
  2950. kanji = "yon-sen" & " " & toKanji(N Mod 100000000000)
  2951. Case 5
  2952. kanji = "go-sen" & " " & toKanji(N Mod 100000000000)
  2953. Case 6
  2954. kanji = "roku-sen" & " " & toKanji(N Mod 100000000000)
  2955. Case 7
  2956. kanji = "nana-sen" & " " & toKanji(N Mod 100000000000)
  2957. Case 8
  2958. kanji = "hassen" & " " & toKanji(N Mod 100000000000)
  2959. Case 9
  2960. kanji = "kyu-sen" & toKanji(N Mod 100000000000)
  2961. Case Else
  2962. kanji = ""
  2963. End Select
  2964. Case 13
  2965. Select Case N \ 1000000000000
  2966. Case 1
  2967. kanji = "itcho" & " " & toKanji(N Mod 1000000000000)
  2968. Case 2
  2969. kanji = "ni-cho" & " " & toKanji(N Mod 1000000000000)
  2970. Case 3
  2971. kanji = "san-cho" & " " & toKanji(N Mod 1000000000000)
  2972. Case 4
  2973. kanji = "yon-cho" & " " & toKanji(N Mod 1000000000000)
  2974. Case 5
  2975. kanji = "go-cho" & " " & toKanji(N Mod 1000000000000)
  2976. Case 6
  2977. kanji = "roku-cho" & " " & toKanji(N Mod 1000000000000)
  2978. Case 7
  2979. kanji = "nana-cho" & " " & toKanji(N Mod 1000000000000)
  2980. Case 8
  2981. kanji = "hatcho" & " " & toKanji(N Mod 1000000000000)
  2982. Case 9
  2983. kanji = "kyu-cho" & toKanji(N Mod 1000000000000)
  2984. Case Else
  2985. kanji = ""
  2986. End Select
  2987. Case 14
  2988. Select Case N \ 10000000000000
  2989. Case 1
  2990. kanji = "ju" & " " & toKanji(N Mod 10000000000000)
  2991. Case 2
  2992. kanji = "ni-ju" & " " & toKanji(N Mod 10000000000000)
  2993. Case 3
  2994. kanji = "san-ju" & " " & toKanji(N Mod 10000000000000)
  2995. Case 4
  2996. kanji = "yon-ju" & " " & toKanji(N Mod 10000000000000)
  2997. Case 5
  2998. kanji = "go-ju" & " " & toKanji(N Mod 10000000000000)
  2999. Case 6
  3000. kanji = "roku-ju" & " " & toKanji(N Mod 10000000000000)
  3001. Case 7
  3002. kanji = "nana-ju" & " " & toKanji(N Mod 10000000000000)
  3003. Case 8
  3004. kanji = "hachi-ju" & " " & toKanji(N Mod 10000000000000)
  3005. Case 9
  3006. kanji = "kyu-ju" & toKanji(N Mod 10000000000000)
  3007. Case Else
  3008. kanji = ""
  3009. End Select
  3010. Case 15
  3011. Select Case N \ 100000000000000
  3012. Case 1
  3013. kanji = "hyaku" & " " & toKanji(N Mod 100000000000000)
  3014. Case 2
  3015. kanji = "ni-hyaku" & " " & toKanji(N Mod 100000000000000)
  3016. Case 3
  3017. kanji = "sanbyaku" & " " & toKanji(N Mod 100000000000000)
  3018. Case 4
  3019. kanji = "yon-hyaku" & " " & toKanji(N Mod 100000000000000)
  3020. Case 5
  3021. kanji = "go-hyaku" & " " & toKanji(N Mod 100000000000000)
  3022. Case 6
  3023. kanji = "roku-hyaku" & " " & toKanji(N Mod 100000000000000)
  3024. Case 7
  3025. kanji = "nana-hyaku" & " " & toKanji(N Mod 100000000000000)
  3026. Case 8
  3027. kanji = "hapyaku" & " " & toKanji(N Mod 100000000000000)
  3028. Case 9
  3029. kanji = "kyu-hyaku" & toKanji(N Mod 100000000000000)
  3030. Case Else
  3031. kanji = ""
  3032. End Select
  3033. Case 16
  3034. Select Case N \ 1000000000000000
  3035. Case 1
  3036. kanji = "sen" & " " & toKanji(N Mod 1000000000000000)
  3037. Case 2
  3038. kanji = "ni-sen" & " " & toKanji(N Mod 1000000000000000)
  3039. Case 3
  3040. kanji = "sanzen" & " " & toKanji(N Mod 1000000000000000)
  3041. Case 4
  3042. kanji = "yon-sen" & " " & toKanji(N Mod 1000000000000000)
  3043. Case 5
  3044. kanji = "go-sen" & " " & toKanji(N Mod 1000000000000000)
  3045. Case 6
  3046. kanji = "roku-sen" & " " & toKanji(N Mod 1000000000000000)
  3047. Case 7
  3048. kanji = "nana-sen" & " " & toKanji(N Mod 1000000000000000)
  3049. Case 8
  3050. kanji = "hassen" & " " & toKanji(N Mod 1000000000000000)
  3051. Case 9
  3052. kanji = "kyu-sen" & toKanji(N Mod 1000000000000000)
  3053. Case Else
  3054. kanji = ""
  3055. End Select
  3056. Case Else
  3057.  
  3058. End Select
  3059.  
  3060.  
  3061. Return kanji
  3062. End Function
  3063. Private Sub TextBox1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
  3064. Try
  3065. Dim dnum As ULong
  3066. dnum = TextBox1.Text
  3067. If dnum = 0 Then
  3068. Label1.Text = "rei"
  3069. Else
  3070. Label1.Text = toKanji(dnum)
  3071. End If
  3072. Catch ex As Exception
  3073. MsgBox("enter an integer up to 16 digits , text length : " & TextBox1.Text.Length())
  3074. End Try
  3075. End Sub
  3076. End Class
  3077.  
  3078.  
  3079. HOW TO MAKE A DLL IN VB.NET
  3080.  
  3081.  
  3082. the dll of classes can be used in various .net compilers (c++, delphi, c#, vb.net...)
  3083.  
  3084. open vb.net, file, new, class library, add all your classes (project, add), save as, build (name of project), resave,
  3085. now the dll should appear in the save as location (in the bin folder of the project)
  3086.  
  3087. now you can add the dll : project, add reference, browse to the dll file.
  3088.  
  3089.  
  3090. MAKE A SETUP WIZARD
  3091.  
  3092.  
  3093. InnoSetup
  3094.  
  3095. make a setup wizard. download link :
  3096. http://www.jrsoftware.org/isdl.php
  3097. the client would need .net framework, which is installed with automatic updates, or you can dl this inno setup :
  3098. http://www.codeproject.com/KB/install/dotnetfx_innosetup_instal.aspx?msg=3394086
  3099.  
  3100.  
  3101. DOT NET MICRO FRAMEWORK
  3102.  
  3103.  
  3104. the netduino board is a micro controller (for robotic stuff) http://www.netduino.com/ with windows ce on in it's chip.
  3105. to work it download .NET Micro Framework 4.0 SDK from which works with Visual Basic 2010 Express (so I have read):
  3106. http://netmf.codeplex.com/releases/view/52340
  3107. or
  3108. http://www.microsoft.com/downloads/en/details.aspx?FamilyId=77dbfc46-14a1-4dcf-a809-eda7ccfe376b&displaylang=en
  3109.  
  3110. code examples :
  3111. http://forums.netduino.com/index.php?/topic/1962-visual-basic-support-for-netduino-and-net-mf-now-in-beta/
  3112.  
  3113. Imports Microsoft.SPOT
  3114. Imports Microsoft.SPOT.Hardware
  3115. Imports SecretLabs.NETMF.Hardware
  3116. Imports SecretLabs.NETMF.Hardware.Netduino
  3117.  
  3118. Module Module1
  3119.  
  3120. Sub Main()
  3121.  
  3122. Dim led As New OutputPort(Pins.ONBOARD_LED, False)
  3123.  
  3124. Do
  3125. led.Write(True)
  3126. Thread.Sleep(250)
  3127. led.Write(False)
  3128. Thread.Sleep(250)
  3129. Loop
  3130.  
  3131. End Sub
  3132.  
  3133. End Module
  3134.  
  3135. Imports Microsoft.SPOT
  3136. Imports Microsoft.SPOT.Hardware
  3137. Imports SecretLabs.NETMF.Hardware
  3138. Imports SecretLabs.NETMF.Hardware.Netduino
  3139.  
  3140. Module Module1
  3141.  
  3142. Sub Main()
  3143. Dim Led As OutputPort = New OutputPort(Pins.ONBOARD_LED, False)
  3144. Dim Button As InputPort = New InputPort(Pins.ONBOARD_SW1, False, ResistorModes.PullUp)
  3145.  
  3146. Do While True
  3147. Led.Write(Button.Read())
  3148. Loop
  3149.  
  3150.  
  3151. End Sub
  3152.  
  3153. End Module
  3154.  
  3155. Imports Microsoft.SPOT
  3156. Imports Microsoft.SPOT.Hardware
  3157. Imports SecretLabs.NETMF.Hardware
  3158. Imports SecretLabs.NETMF.Hardware.Netduino
  3159.  
  3160. Module Module1
  3161.  
  3162. Public led As OutputPort = New OutputPort(Pins.ONBOARD_LED, False)
  3163.  
  3164. Sub Main()
  3165. Dim button As InterruptPort = New InterruptPort(Pins.ONBOARD_SW1, False, Port.ResistorMode.PullUp, Port.InterruptMode.InterruptEdgeBoth)
  3166. AddHandler button.OnInterrupt, AddressOf ButtonChange
  3167. button.EnableInterrupt()
  3168.  
  3169. Thread.Sleep(Timeout.Infinite)
  3170.  
  3171. End Sub
  3172.  
  3173. Sub ButtonChange(ByVal data1 As UInteger, ByVal data2 As UInteger, ByVal time As Date)
  3174. If data2 = 0 Then led.Write(False) Else led.Write(True)
  3175. End Sub
  3176.  
  3177. End Module
  3178.  
  3179.  
  3180. SQL
  3181.  
  3182.  
  3183. http://www.youtube.com/watch?v=3Aadk...eature=related
  3184.  
  3185. crud : create read update delete
  3186. dbms : database management system
  3187. sql : structured query language
  3188. table = rows and columns of data (cells)
  3189.  
  3190. download : sql express 2008 (up to 4Gbyte of data) or 2010 (up to 10Gbytes)
  3191. building and modifying databases is intuitive (using only SQL)
  3192.  
  3193. sql statements :
  3194.  
  3195. select * from table
  3196. table = table name
  3197.  
  3198. select count(*) from table
  3199. return how many rows in the table
  3200. select count(column1) from table
  3201. return how many not null rows in the column1 of the table table
  3202.  
  3203. select column1, column2 from table
  3204. column = column name
  3205. select column1 as name, column2 as 'name two' from table
  3206. also names the requested columns (1 and 2)
  3207.  
  3208. SELECT column1, column2 FROM TABLE WHERE column1 = 'stringvaluehere'
  3209. add ORDER BY column
  3210. to sort
  3211.  
  3212. UPDATE table SET column = 'new data' WHERE colomn = x
  3213. x is a number
  3214.  
  3215. DELETE FROM table WHERE colomn = x
  3216.  
  3217.  
  3218. SQL DATABASE AND VB.NET
  3219.  
  3220.  
  3221. new project
  3222. project, add new item, service based database
  3223. finish
  3224. view, database explorer, +, tables, rightclick add new table
  3225. from table created add data, and tab to move to the next field
  3226. save all, data sources, add new data source, database, connection string copy (after click +) and save it in a text file !,
  3227. next, check all, finish
  3228. connection string also at rightclick database, properties (in database explorer)
  3229.  
  3230. ado auto navigator: data sources, +,+ of table, arrow, details, drag the table in to the form. you can add, delete
  3231. insert now with the new control. you can alternitivlly use this codes:
  3232.  
  3233. the examples were tested on a 1 table database with 2 fields : fname, lastname
  3234. add
  3235. Imports System.Data.SqlClient 'present in all sql codes
  3236. insert:
  3237.  
  3238. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  3239. Dim connetionString As String
  3240. Dim connection As SqlConnection
  3241. Dim adapter As New SqlDataAdapter
  3242. Dim sql As String
  3243. connetionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\moti1.mdf;Integrated Security=True;User Instance=True"
  3244. connection = New SqlConnection(connetionString)
  3245. Dim x, x1 As String
  3246. x = TextBox1.Text
  3247. x1 = TextBox2.Text
  3248. sql = String.Format("insert into table1 (fname,lname) values('{0}','{1}')", x, x1)
  3249. Try
  3250. connection.Open()
  3251. adapter.InsertCommand = New SqlCommand(sql, connection)
  3252. adapter.InsertCommand.ExecuteNonQuery()
  3253. MsgBox("Row inserted !! ")
  3254. Catch ex As Exception
  3255. MsgBox(ex.ToString)
  3256. End Try
  3257. End Sub
  3258.  
  3259. Dataadapter DeleteCommand - Sql Server (in the button sub)
  3260.  
  3261. Dim connetionString As String
  3262. Dim connection As SqlConnection
  3263. Dim adapter As New SqlDataAdapter
  3264. Dim sql As String
  3265. connetionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\moti1.mdf;Integrated Security=True;User Instance=True"
  3266. connection = New SqlConnection(connetionString)
  3267. Dim x As String
  3268. x = TextBox1.Text
  3269. sql = String.Format("delete table1 where fname ='{0}'", x)
  3270. Try
  3271. connection.Open()
  3272. adapter.DeleteCommand = connection.CreateCommand
  3273. adapter.DeleteCommand.CommandText = sql
  3274. adapter.DeleteCommand.ExecuteNonQuery()
  3275. MsgBox("Row(s) deleted !! ")
  3276. Catch ex As Exception
  3277. MsgBox(ex.ToString)
  3278. End Try
  3279.  
  3280. the following examples are for a diffrent(but simmilar) data base:
  3281.  
  3282. populate and display
  3283.  
  3284. Imports System.Data.SqlClient
  3285. Public Class Form1
  3286. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  3287. Dim connetionString As String
  3288. Dim connection As SqlConnection
  3289. Dim adapter As SqlDataAdapter
  3290. Dim ds As New DataSet
  3291. Dim i As Integer
  3292. connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"
  3293. connection = New SqlConnection(connetionString)
  3294. Try
  3295. connection.Open()
  3296. adapter = New SqlDataAdapter("Your SQL Statement Here", connection) 'or
  3297. adapter.SelectCommand = New SqlCommand("Your SQL Statement Here", connection) ' end of or
  3298. adapter.Fill(ds)
  3299. connection.Close()
  3300. For i = 0 To ds.Tables(0).Rows.Count - 1
  3301. MsgBox(ds.Tables(0).Rows(i).Item(1))
  3302. Next
  3303. Catch ex As Exception
  3304. MsgBox(ex.ToString)
  3305. End Try
  3306. End Sub
  3307. End Class
  3308.  
  3309. Dataadapter UpdateCommand - Sql Server
  3310.  
  3311. Imports System.Data.SqlClient
  3312. Public Class Form1
  3313. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  3314. Dim connetionString As String
  3315. Dim connection As SqlConnection
  3316. Dim adapter As New SqlDataAdapter
  3317. Dim sql As String
  3318. connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"
  3319. connection = New SqlConnection(connetionString)
  3320. sql = "update product set product_price = 1001 where Product_name ='Product7'"
  3321. Try
  3322. connection.Open()
  3323. adapter.UpdateCommand = connection.CreateCommand
  3324. adapter.UpdateCommand.CommandText = sql
  3325. adapter.UpdateCommand.ExecuteNonQuery()
  3326. MsgBox("Row updated !! ")
  3327. Catch ex As Exception
  3328. MsgBox(ex.ToString)
  3329. End Try
  3330. End Sub
  3331. End Class
  3332.  
  3333. methode 2 for passing variables : _ is down line (instead of {0},x of the delete code above)
  3334. also: the parameters past to the sql command sould be filtered from malicious sql commands and '
  3335. for the code with {0} unless you use the following code that doesn't require fillterring.
  3336.  
  3337. Dim sql As String = "INSERT INTO User (FirstName, LastName, DateOfBirth, ChildCount) " & _
  3338. "VALUES (@FirstName, @LastName, @DateOfBirth, @ChildCount)"
  3339. Dim myCommand As New SqlCommand(sql)
  3340. With myCommand.Parameters
  3341. .AddWithValue("@FirstName", Me.firstNameField.Text)
  3342. .AddWithValue("@LastName", Me.lastNameField.Text)
  3343. .AddWithValue("@DateOfBirth", Me.dateOfBirthPicker.Value.Date)
  3344. .AddWithValue("@ChildCount", CInt(Me.childrenSpinner.Value))
  3345. End With
  3346.  
  3347. read all data with code: (for first example of 2 field database (fname,lname))
  3348. add imports system.data
  3349.  
  3350. Dim con As New SqlConnection
  3351. Dim cmd As New SqlCommand
  3352. Try
  3353. con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\moti1.mdf;Integrated Security=True;User Instance=True"
  3354. con.Open()
  3355. cmd.Connection = con
  3356. cmd.CommandText = "SELECT fname, lname FROM table1"
  3357. Dim lrd As SqlDataReader = cmd.ExecuteReader()
  3358.  
  3359. While lrd.Read()
  3360. MsgBox(lrd.Item(0).ToString())
  3361. MsgBox(lrd.Item(1).ToString())
  3362. ' two fields
  3363. End While
  3364.  
  3365. Catch ex As Exception
  3366. MessageBox.Show("Error while retrieving records on table..." & ex.Message, "Load Records")
  3367. Finally
  3368. con.Close()
  3369. End Try
  3370.  
  3371.  
  3372. SAVE IMAGES
  3373.  
  3374. Saving Images in Databases (can also be used for any files (like videos))
  3375.  
  3376.  
  3377. Loading an image from a database field:
  3378.  
  3379. Dim connection As New SqlConnection("connection string here")
  3380. Dim command As New SqlCommand("SELECT Picture FROM MyTable WHERE ID = 1", connection)
  3381. connection.Open()
  3382. Dim pictureData As Byte() = DirectCast(command.ExecuteScalar(), Byte())
  3383. connection.Close()
  3384. Dim picture As Image = Nothing
  3385. Using stream As New IO.MemoryStream(pictureData)
  3386. picture = Image.FromStream(stream)
  3387. End Using
  3388.  
  3389. Saving an image to a database field:
  3390.  
  3391. Dim connection As New SqlConnection("connection string here")
  3392. Dim command As New SqlCommand("UPDATE MyTable SET Picture = @Picture WHERE ID = 1", connection)
  3393. Using picture As Image = Image.FromFile("file path here")
  3394. Using stream As New IO.MemoryStream
  3395. picture.Save(stream, Imaging.ImageFormat.Jpeg)
  3396. command.Parameters.Add("@Picture", SqlDbType.VarBinary).Value = stream.GetBuffer()
  3397. End Using
  3398. End Using
  3399. connection.Open()
  3400. command.ExecuteNonQuery()
  3401. connection.Close()
  3402.  
  3403.  
  3404. SQL STORED PROCEDURES
  3405.  
  3406. in asp.net : after connecting to the sql database :
  3407. right click stroed procedure, add.
  3408.  
  3409. type :
  3410. create procedure dbo.name
  3411.  
  3412. @columnname varchar(60)
  3413.  
  3414. as
  3415.  
  3416. select column1, column2 from tablename
  3417. where columnname = @columnname
  3418.  
  3419. return
  3420.  
  3421. you can right click and execute to test
  3422.  
  3423. ctrl + shift + a or add new item, linq to sql classes
  3424. right click GUI to show methode pane, drag the created stored procedure into the pane
  3425. add to the form a data grid view control, and a text box
  3426.  
  3427. in the code (for vb code) :
  3428.  
  3429. private records as new contactbasedatacontext
  3430. 'as global variable
  3431.  
  3432. ' in an event like button event
  3433.  
  3434. dim rec = records.selectcontact(textbox1.text)
  3435. datagridview1.datasource = rec
  3436.  
  3437. ' run , put parameter in textbox1 click button to run event code
  3438.  
  3439. 2nd example of stored procedure :
  3440.  
  3441. alter procedure dbo,insertnojutsu
  3442.  
  3443. @param1 varchar(49)
  3444. @param2 varchar(30)
  3445.  
  3446. as
  3447.  
  3448. insert into tablename(param1,param2)
  3449. where (@param1,@param2)
  3450.  
  3451. return
  3452.  
  3453.  
  3454. MINNING ACCESS DATABASES WITH VB.NET
  3455.  
  3456.  
  3457. connecting to an access database:
  3458.  
  3459. 1 File > New Project from the menu bar, Windows Application
  3460. 2 View > Solution Explorer from the menu bar, click on Data Sources, choose data source, next
  3461. version 2010 of VBN NET select dataset, next
  3462. 3 New Connection, Change button, Select Microsoft Access Database File, ok
  3463. 4 Click the Browse button and navigate to where on your computer you downloaded our Access Database,
  3464. Click Test Connection to see if everything is OK
  3465. 5 +, save connection string in a txt file
  3466. 6 Click No on the message box to stop VB copying the database each time it runs
  3467. 7 from data sources you can drag and drop tables or fields to the form to navigate and edit(to edit before
  3468. draging click the arrow near the table and choose detail view)
  3469.  
  3470. tip: When all Textbox are selected, click on the Format menu at the top
  3471. From the Format menu select Align > Lefts. The left edges of the Textboxes will align themselves
  3472. From the Format menu select Vertical Spacing > Make Equal. The space between each textbox will then be
  3473. the same .
  3474.  
  3475. codes:
  3476. OLE stands for Object Linking and Embedding
  3477.  
  3478. in a sub:
  3479. dim con As new OleDb.OleDbConnection
  3480. dim dbProvider,dbSource As string
  3481. dim ds As new DataSet
  3482. dim da As OleDb.OleDbDataAdapter
  3483. dim sql As string
  3484.  
  3485. dbProvider = "PROVIDER=Microsoft.jet.OLEDB.4.0;"
  3486. dbSource = "Data Source = E:/AddressBook.mdb" ' path of access database
  3487.  
  3488. con.ConnectionString = bProvider & dbSource
  3489.  
  3490. con.open()
  3491.  
  3492. sql = "SELECT * FROM tblContacts" 'sql command, dataset contains table tblContacts
  3493. da = new OleDb.OleDbDataAdapter(sql, con)
  3494. da.Fill(ds, "AddressBook") ' dataset filled
  3495.  
  3496.  
  3497. con.close()
  3498.  
  3499. txtFirstName.Text = ds.Tables("AddressBook").Rows(0).Item(1)' getting data from ds
  3500. txtSurname.Text = ds.Tables("AddressBook").Rows(0).Item(2)
  3501. 'or
  3502. 'txtFirstName.Text = ds.Tables("whatever").Rows(0).Item(1)
  3503. 'txtSurname.Text = ds.Tables("whatever").Rows(0).Item(2)
  3504.  
  3505. ' MaxRows = ds.Tables("AddressBook").Rows.Count
  3506.  
  3507. end sub
  3508.  
  3509. Updating a Record:
  3510.  
  3511. Dim cb As New OleDb.OleDbCommandBuilder(da)
  3512.  
  3513. ds.Tables("AddressBook").Rows(inc).Item(1) = txtFirstName.Text
  3514. ds.Tables("AddressBook").Rows(inc).Item(2) = txtSurname.Text
  3515.  
  3516. da.Update(ds, "AddressBook")
  3517.  
  3518. MsgBox("Data updated")
  3519.  
  3520. Add a New Record
  3521.  
  3522. Dim cb As New OleDb.OleDbCommandBuilder(da)
  3523. Dim dsNewRow As DataRow
  3524.  
  3525. dsNewRow = ds.Tables("AddressBook").NewRow()
  3526.  
  3527. dsNewRow.Item("FirstName") = txtFirstName.Text
  3528. dsNewRow.Item("Surname") = txtSurname.Text
  3529.  
  3530. ds.Tables("AddressBook").Rows.Add(dsNewRow)
  3531.  
  3532. da.Update(ds, "AddressBook")
  3533.  
  3534. MsgBox("New Record added to the Database")
  3535.  
  3536. Deleting Records from a Database:
  3537.  
  3538. Dim cb As New OleDb.OleDbCommandBuilder(da)
  3539.  
  3540. ds.Tables("AddressBook").Rows(inc).Delete() ' inc is an integer variable
  3541.  
  3542. da.Update(ds, "AddressBook")
  3543.  
  3544.  
  3545. tip: getting a folder path:
  3546. Dim fldr As String
  3547. fldr = Environment.GetFolderPath( Environment.SpecialFolder.MyDocuments ) & "/AddressBook.mdb"
  3548.  
  3549.  
  3550. E-COMMERCE
  3551.  
  3552.  
  3553. for software:
  3554.  
  3555. make your program generate a random password then give the user an encrypted pass (according to formula), then use a pay site to get payment confirmation via email,
  3556. next send the uncrypted password to the user (you unencrypt with an encription program you make that uses the product software encryption key).
  3557.  
  3558. finally user enters pass in software to resume.
  3559. also, you can use activelock (with vb.net) for the encryption, it is free, just dl it and add to the tool box
  3560. the dll by : right click, choose iten, brows
  3561.  
  3562. all purpose : e-commerce
  3563.  
  3564. 1 paypal :
  3565. sign up for a business account, log in, go to website payment standard link, sell single items
  3566. fill product details and price, create button, embed the give embed code in your site, you
  3567. should get an email with purchases data
  3568.  
  3569. this can also get donations
  3570.  
  3571. or use :
  3572. WebStarts, settings tab, e- commerce, fill data
  3573.  
  3574. 2 clickbank - sell files like pdf and get the money sent by check in the mail, you get
  3575. an embeded link for selling the file on your siter site
  3576.  
  3577.  
  3578. ASP.NET
  3579.  
  3580.  
  3581. Active Server Pages (ASP) - exactly like vb.net (see also sql chapter) but instead of a form you have web pages,
  3582. and other controls are available. to publish an asp.net web site ftp the .aspx files and any necessary support
  3583. files (path where you save as) (see publish your site in html chapter)
  3584.  
  3585. a server that supports asp.net has Internet Information Server (IIS) installed (most do)
  3586. operating systems that support ASP are: Windows 95, 98, NT, 2000, 2003, XP sp3 Pro, windows 7.
  3587.  
  3588. A search and install asp.net (search asp.net download or download Visual Web Developer 2010 Express)
  3589. B checking if IIS on Windows XP Professional:(optional (it installs with asp.net))
  3590.  
  3591. 1 Open your control panel. Click Start -> then Settings -> then Control Panel
  3592. 2 Select and Open "Add or Remove Programs"
  3593. 3 On the left column of the popup window select "Add or Remove Windows Components"
  3594. 4 Scroll down until you see Internet Information Services (IIS)
  3595. 5 If IIS is not checked then check it, otherwise you already have IIS installed on your computer
  3596. 6 Click Next and follow the on screen instructions from the installer
  3597. 7 When it has completed, open up Internet Explorer and type in http://localhost
  3598. 8 If IIS was install appropriately you should be taken to the welcome screen http://localhost/localstart.asp
  3599.  
  3600. 1 when you start a new web site select the visual basic language or c#
  3601.  
  3602. 2 datagrid uses an auto wizard to display and work with access or sql databasses
  3603.  
  3604. 3 hyperlink url property : set to nameOfWebPage.aspx to navigate to a webpage you added in your site
  3605.  
  3606. How to Deploy ASP. Net Websites on IIS 7.0:
  3607. From Visual Studio, publish your Web application
  3608. Copy the published application folder to "C:\intepub\wwwroot" [default] folder
  3609. From start, RUN - > inetmgr -> OK
  3610. right click testweb and then Click on "ConvertToApplication"
  3611.  
  3612.  
  3613. CLOUD COMPUTING
  3614.  
  3615.  
  3616. cloud operating systems : os on servers to be accessed from anywhere
  3617.  
  3618. cloudo.com (free)
  3619. oos.cc called icube
  3620. eyeos.info has : spreadsheet, word processor, calender
  3621.  
  3622. uploading asp.net site to an azure server
  3623. note you might need to install IPv6 for windows xp
  3624. ROUND 1
  3625.  
  3626. this is cheaper if your site and it's sql database is fatter than 100MB
  3627.  
  3628. 0 sign up at windows.azure.com get a cloud subscription
  3629. 1 install cloud sdk
  3630. 2 in asp.net :in your asp.net project, solution explorer,right click, new project, add, cloud, choose asp.net
  3631. 3 solution exploarer, in the added roles folder, right click, add, web role, finish that wizard,
  3632. in the added file of the roles folder, right click, options, find connection string (in settings tab)
  3633. delete the default connection string, and make a new one to be filled with your
  3634. azure storage account name and key : to get them : go to your azure portal, home, host services, storage, copy
  3635. name and key, save
  3636. 4 from solution explorer, cloud, right click, publish, creat certificatel, name it,
  3637. click copy full path
  3638. 5 go to your azure portal, management certificates, add certificate, browse to your
  3639. certificate (paste full path) or browse to it
  3640. 6 return to cloud publish wizard, paste subscriptionID from your azure portal last(current) screen
  3641. (in the portal properties window (to the right), give a credencial name(whatever)
  3642. ok publish wait and you get a url, and the site is also in your cloud portal
  3643.  
  3644. sql server to sql azure
  3645. ROUND 2
  3646.  
  3647. 1 download sql azure migration wizard (codeplex.com), run the exe file, check analyze and migrate
  3648. database, specify database : localdatabase
  3649. 2 go to azure portal, database, copy server name and paste it in the wizard instead of SERVER
  3650. in server name : textbox
  3651. fill : username@SERVERNAME(that was copied), connect
  3652. 3 click creat database, after finish wizard, refresh database in azure portal, the database is added
  3653. from the portal you can edit the database (click manage and enter your password)
  3654.  
  3655. asp.net site (web app) and sql azure integration
  3656. ROUND 3
  3657.  
  3658. in asp.net in your web app project(that was published to the azure) in the sqldatasource object
  3659. click it's little arrow, change connection string, new connection string, copy the server name from
  3660. azure database portal, from the new database, type username and password, finish, save, run (f5)
  3661.  
  3662.  
  3663. YOUTUBE
  3664.  
  3665.  
  3666. SOFTWARE Camtasia Studio 6 (video editing)
  3667. OR
  3668. camstudio : make a screen capture video (full or part of screen)
  3669. adobe premier pro or windows live movie maker : make edit and auto publish a video to youtube
  3670. imovie or final cut pro : edit movies on mac OS
  3671. iphone youtube app : upload movie from iphone, the iphone connects to the internet via wireless network or
  3672. gsm (cellphone) network
  3673.  
  3674. audioSwap : in youtube click your username, myvideos, select video to edit its audio track
  3675. , audioswap to place new music or sound track to your video
  3676.  
  3677. easyest editing : in youtube click your username, myvideos, on top menu : video editor
  3678. now you can make a new video out of your other uploaded videos (that can be sliced) and you
  3679. can edit the audio track
  3680.  
  3681. note : free blogs : blogger, wordpress
  3682.  
  3683. if you are unable to upload a video to youtube (Unknown Error Uploading) then :
  3684. download and install : google gears from :
  3685. http://gears.google.com/
  3686. upload the video from :
  3687. http://upload.youtube.com/my_videos_upload?restrict=gears
  3688.  
  3689.  
  3690. HTML (build a website)
  3691.  
  3692.  
  3693. to make a website from scratch:
  3694. 1 create a new folder (in here you put all your files, and webpages)
  3695. 2 create a new text file change its ending to html or htm
  3696. 3 right click the htm file open with notepad or wordpad (if your on windown), or typepad(for mac os)
  3697. 4 skelleton of html code:
  3698. <html>
  3699. <head>
  3700. <title>My WebPage!</title>
  3701. </head>
  3702. <body>
  3703. Hello World! All my content goes here!
  3704. </body>
  3705. </html>
  3706.  
  3707. * traditional doctype :
  3708. start html with html doctype in first line of code (before <html> ):
  3709.  
  3710. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
  3711. or
  3712. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
  3713.  
  3714. for xml :
  3715.  
  3716. <!DOCTYPE HTML PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3c.org/TR/xhtml11/DTD/xhtml11-transitional.dtd">
  3717.  
  3718. or strict to favor coding : (choose html or xml)
  3719.  
  3720.  
  3721. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3c.org/TR/html4/strict.dtd">
  3722.  
  3723. <!DOCTYPE HTML PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3c.org/TR/xhtml11/DTD/xhtml11-strict.dtd">
  3724.  
  3725. or frameset (choose html or xml)
  3726.  
  3727.  
  3728. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3c.org/TR/html4/frameset.dtd">
  3729.  
  3730. <!DOCTYPE HTML PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN" "http://www.w3c.org/TR/xhtml11/DTD/xhtml11-frameset.dtd">
  3731.  
  3732. 4.2 here is an example of htm code for an html site :
  3733. <html>
  3734. <header>
  3735. <title>moti site</title>
  3736. </header>
  3737. <body>
  3738. <center>
  3739. <p><h1><b>welcome<br>new line</b></h1></p>
  3740. <p><h2><i>welcome</i></h2></p>
  3741. <p><u>welcome</u></p>
  3742. <p>welcome</p>
  3743. </center>
  3744. &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;space
  3745. <table align = "center" border = "1" width = "300">
  3746. <tr><td>videos</td></tr>
  3747. <tr><td><ol>
  3748. <li>item 1</li>
  3749. <li>item 2</li>
  3750. </ol></td></tr>
  3751. <tr><td>paste youtube embedded here</td></tr>
  3752. <tr><td>test1</td><td>test2</td></tr>
  3753. </table>
  3754. videos:
  3755. <ol>
  3756. <li>item 1</li>
  3757. <li>item 2</li>
  3758. </ol>
  3759. </body>
  3760.  
  3761. </html>
  3762. 5 save (with ctrl s) close the notepad open your html site.
  3763.  
  3764. html code:
  3765. tags : open tag <html></html> close tags thats the format for all the html tags in them you put text and stuff
  3766. in the <html></html> tags you put <header></header> and <body></body tags outside of header tag as
  3767. see number 4 above
  3768.  
  3769. <title>your site title</title> goes in header tags.
  3770.  
  3771. in body tags goes your contents (pictures, links, text). to add text you type it inside body tags and you can
  3772. sorround some text in special tags to change its appearence.
  3773.  
  3774. attributes: in the tags can be added (to the first tag) attributes for the contents in the tag.
  3775.  
  3776. some characters in your text can be input laccording to the following:(Entities)
  3777.  
  3778. & - &amp;
  3779. cent sign - &cent;
  3780. copyright symbol - &copy; or &#169;
  3781. degree sign - &deg;
  3782. greater than - &gt;
  3783. lower than - &lt;
  3784. space - &nbsp;
  3785. registered trade mark - &#174;
  3786. trademark - &#153;
  3787.  
  3788. tags list exampled:
  3789. 1 <p> - opening paragraph tag
  3790. Element Content - paragraph words
  3791. </p> - closing tag
  3792. <p align="justify">some text</p> (align is an attribute) align = "center" or "right"
  3793.  
  3794. 2 list :
  3795. <h4 align="center">Goals</h4> (headline) also h1 to h6 h1 is biggest.
  3796. attribute : align = "left" or "center" or "right"
  3797. <ol> (numbered list, use ul (not ol)for unnumbered) can use <ol start ="4"> to start count from 4
  3798. <li>stuff1</li>
  3799. <li>stuff2</li>
  3800. </ol>
  3801. (<ol type="x"> x replace with "a", "A", "i" or "I" to change counters)
  3802. (<ul type="square"> or <ul type="disc"> or <ul type="circle">)
  3803.  
  3804. 3 definition:
  3805. <dl>
  3806. <dt><b>chizu</b></dt>
  3807. <dd>japanese word for cheese.</dd>
  3808. <dt><b>jidosha</b></dt>
  3809. <dd>japanese word for car.</dd>
  3810. </dt>
  3811.  
  3812. 4 line break (enter new line):
  3813. <br />
  3814.  
  3815. 5 horizontal line : <hr />
  3816. <b>Bold Text</b>
  3817. <em>Emphasized Text</em>
  3818. <strong>Strong Text</strong></p>
  3819. <i>Italic Text</i>
  3820. <sup>superscripted Text</sup>
  3821. <del>struckthrough Text</del>
  3822. <code>Computer Code Text</code>
  3823.  
  3824. 6 <font size="5">Here is a size 5 font</font>
  3825. <font color="#990000">This text is hexcolor #990000</font>
  3826. (This text is hexcolor #990000)
  3827. <font color="red">This text is red</font>
  3828. Attributes:
  3829. size= "Num. Value 1-7" Size of your text 7 is biggest
  3830. color= "rgb,name,or hexidecimal" Change font color
  3831. face= "name of font" Change the font type
  3832.  
  3833. 7 HTML - Hypertext Reference (href):
  3834. <a href="http://www.espn.com/" target="_blank" >ESPN Home</a>
  3835. <a href="http://www.yahoo.com/" target="_blank" >Yahoo Home</a>
  3836. (the text between the tags will be shown)
  3837. Internal - href="#anchorname" (link to a word on your site) and add :
  3838. <A name="anchorname">you get here</A>
  3839. Local - href="../pics/picturefile.jpg" (link to a file in a folder in the folder of your site (to be ftb via your domain url
  3840. and stored in your webhost)
  3841. Global - href="url" (link to a site)
  3842. target=" _blank" Opens new page in a new browser window
  3843. _self" Loads the new page in current window
  3844. _parent" Loads new page into a frame that is superior to where the link lies
  3845. _top" Loads new page into the current browser window, cancelling all frames
  3846.  
  3847. ancoring: step1:
  3848. <h2>HTML Links and Anchors<a name="top"></a></h2>
  3849. <h2>HTML Text Links<a name="text"></a></h2>
  3850. <h2>HTML Email<a name="email"></a></h2>
  3851. step2:
  3852. <a href="#top">Go to the Top</a>
  3853. <a href="#text">Learn about Text Links</a>
  3854. <a href="#email">Learn about Email Links</a>
  3855. email link: <a href="mailto:x@yahoo.com?subject=Feedback" >Email@personx.com</a>
  3856. email link with filling email body:
  3857. <a href="mailto:email@yahoo.com?subject=Feedback&body=nice">
  3858. Email@personx.com</a>
  3859. download link:
  3860. <a href="http://www.sitename.com/pics/htmlT/something.zip">Text Document</a>
  3861. href ="location of file (url of another site or location in the folder containing the file compared to your location)
  3862. href = images/images.html (link to webpage images in folder images)
  3863. href = "images/pic1.png" link to a picture
  3864.  
  3865. 8 images:
  3866. <img src="anime da.gif" />
  3867. src="anime da.gif" picture file resides in same directory(folder) as .html file
  3868. src="../anime da.gif" picture file resides in previous directory as .html file
  3869. src="../pics/anime da.gif" picture file resides in the pic directory in a previous directory as .html file
  3870. attributes:
  3871. alt="anime" (text to be displayed when hovering with mouse over picture)
  3872. <img src="anime da.gif" height="60" width="200">
  3873. align="right" or "left" or "center"
  3874. Images as Links:
  3875. <a href="http://www.sitename.com/">
  3876. <img src="anime da.gif">
  3877. </a>
  3878. small picture link to comlete big picture:
  3879. <a href="anime da.gif">
  3880. <img src="thmb_anime da.gif">
  3881. </a>
  3882. image link:
  3883. <a href="http://www.espn.com" target="_blank"> <img src="anime da.gif"> </a>
  3884. attributes : border="0"
  3885.  
  3886. 9 embed music:
  3887. <embed src="beethoven.mid" width="360" height="165" /> (file beethoven.mid is in the site folder)
  3888. Embed Attributes - Related to Functionality:
  3889. autostart - choose if the media file will start automatically
  3890. loop - sets the media file to repeat or not
  3891. volume - set the volume of the media file. The range is 0-100.
  3892. <embed src="beethoven.mid" autostart="false" loop="false"
  3893. volume="60" />
  3894. 10 embed video:
  3895. <embed src="siteurl/files/html/htmlexample.mpeg"
  3896. autostart="false" />
  3897. also:
  3898. <a href="http:siteurl/pics/flash/motiontween1easy.swf">
  3899. motiontween1easy.swf</a>
  3900. Flash movies (.swf), AVI's (.avi), and MOV's (.mov) , .mpeg files file types are supported by the embed tag. you sould
  3901. use a new webbrowser so it will work such as IE (internet explorer) 8 or higher
  3902. HTML - Embed Attributes:
  3903. autostart - controls the media's ability to start without prompting. Values are true or false.
  3904. hidden - controls whether or not the play/stop/pause embedded object is hidden or not. Values are true or false. (Hide your embeded media if you just want background noise).
  3905. loop - A true value means the media will continuously loop, false means no looping.
  3906. playcount - Setting a playcount means the media will repeat itself x number of times instead of continuously as with the loop attribute above. (playcount="2" will repeat the video twice).
  3907. volume - set a numeric value for the loudness of your media. (0-100).
  3908.  
  3909. also you can get the embed code of a video of youtube or google and paste it on your site
  3910.  
  3911. 11 <table border="1"> (table)
  3912. <tr><td>Row 1 Cell 1</td><td>Row 1 Cell 2</td></tr>
  3913. <tr><td>Row 2 Cell 1</td><td>Row 2 Cell 2</td></tr>
  3914. </table>
  3915.  
  3916. for this code:
  3917. <table border="1" cellspacing="10"
  3918. bgcolor="rgb(0,255,0)">
  3919. <tr>
  3920. <th>Column 1</th>
  3921. <th>Column 2</th>
  3922. </tr>
  3923. <tr><td>Row 1 Cell 1</td><td>Row 1 Cell 2</td></tr>
  3924. <tr><td>Row 2 Cell 1</td><td>Row 2 Cell 2</td></tr>
  3925. </table>
  3926. in tr the text is bold and you see table attributes
  3927.  
  3928. 12 background color:
  3929. <body bgcolor="Silver">
  3930. <p>We set the background...</p>
  3931. </body>
  3932. bgcolor for table:
  3933. <table>
  3934. <tr bgcolor="#FFFF00"><td>This Row is Yellow!</td></tr>
  3935. <tr bgcolor="#AAAAAA"><td>This Row is Gray!</td></tr>
  3936. <tr bgcolor="#FFFF00"><td>This Row is Yellow!</td></tr>
  3937. <tr bgcolor="#AAAAAA"><td>This Row is Gray!</td></tr>
  3938. <tr bgcolor="#FFFF00"><td>This Row is Yellow!</td></tr>
  3939. <tr bgcolor="#AAAAAA"><td>This Row is Gray!</td></tr>
  3940. </table>
  3941.  
  3942. 13 background picture:
  3943. add attribute: background="url" (of picture) or picture file location, to body or table tag
  3944.  
  3945. 14 comment (does nothing but the site won't show it
  3946. <!--buy milk -->
  3947. 14.2 <p>This text is <del>scratched</del> out!</p>
  3948.  
  3949. 14.3 iframe: embed a webpage in another webpage:
  3950. <html>
  3951. <head>
  3952. </head>
  3953. <frameset cols="30%,*">
  3954. <frame src="menu.html">
  3955. <frame src="content.html">
  3956. </frameset>
  3957. </html>
  3958. frameset - The parent tag that defines the characteristics of this frames page.
  3959. Individual frames are defined inside it.
  3960. frameset cols="#%, *"- Cols(columns) defines the width that each frame will have.
  3961. In the above example we chose the menu (the 1st column) to be 30% of the total
  3962. page and used a "*", which means the content (the 2nd column) will use the remaining width for itself.
  3963. frame src="" -The location of the web page to load into the frame.
  3964. <html><head></head>
  3965. <frameset rows="20%,*">
  3966. <frame src="title.html">
  3967. <frameset cols="30%,*">
  3968. <frame src="menu.html">
  3969. <frame src="content.html">
  3970. </frameset>
  3971. </html>
  3972.  
  3973. <html><head></head>
  3974. <frameset border="0" frameborder="0" framespacing="0" rows="20%,*">
  3975. <frame src="title.html">
  3976. <frameset border="0" frameborder="0" framespacing="0" cols="30%,*">
  3977. <frame src="menu.html">
  3978. <frame src="content.html">
  3979. </frameset>
  3980. </html>
  3981. frameborder="#" - A zero value shows no "window" border.
  3982. border="#"- Modifies the border width, used by Netscape.
  3983. framespacing="#" -Modifies the border width, used by Internet Explorer.
  3984.  
  3985. 15 meta here in contents attribute you put tags key words to help search engines find and rank your site:
  3986. <head>
  3987. <meta name="keywords" content="HTML, XHTML, CSS, tutorials, site" />
  3988. </head>
  3989. name defines what type of meta tag being used. Note that the keywords are separated by commas.
  3990. <head> (description meta tag
  3991. <meta name="description" content="site contains webmaster tutorials." />
  3992. </head>
  3993.  
  3994. 16 font:
  3995. <p>
  3996. <font size="5">Here is a size 5 font</font>
  3997. </p>
  3998. <font color="#990000">This text is hexcolor #990000</font>
  3999. <font color="red">This text is red</font>
  4000. <p>
  4001. <font face="Bookman Old Style, Book Antiqua, Garamond">This paragraph
  4002. has had its font...</font>
  4003. </p>
  4004. Attributes:
  4005. size= "Num. Value 1-7" Size of your text, 7 is biggest
  4006. color= "rgb,name,or hexidecimal" Change font color
  4007. face= "name of font" Change the font type
  4008. First Letter Style:
  4009. <p><font size="7" face="Georgia, Arial" color="maroon">C</font>ustomize
  4010. your font to achieve a desired look.</p>
  4011.  
  4012. 17 Favicon - an icon for your site(an icon ends with .ico)
  4013. download an icon and save it in your sites root directory(main folder)
  4014. to your webpages add:
  4015. <head>
  4016. <link rel="shortcut icon"
  4017. href="http://www.domain.com/iconfile.ico">
  4018. </head>
  4019. to create a favicon(instead of download):
  4020. using an icon editor:
  4021. PixelToolbox from AxiomX, the icon image is 16x16 pixel size(if you make it from an existing image file (like jpeg)).
  4022.  
  4023. 18 add site to favorites link:
  4024. <script language="JavaScript" type="text/javascript">
  4025. function addBookmark()
  4026. {
  4027. if (document.all) {
  4028. window.external.AddFavorite(location.href, document.title);
  4029. }else if (window.sidebar){
  4030. window.sidebar.addPanel(document.title, location.href, "");}
  4031. }
  4032. </script>
  4033. <a href="JavaScript:addBookmark();"
  4034. onclick="addBookmark();">Add to your favorites</a>
  4035.  
  4036. 19 add a forum:
  4037. you can open a free forum for example at: http://www.ace.st/en/
  4038. and add the forums link to your site.
  4039. ,manage the forum from : profile, scroll down to administration panel
  4040.  
  4041. 20 display pdf(ebook):
  4042. assuming you added the pdf to your site folder(on your pc or in the webhost via ftp)
  4043. <a target="_blank" href="NAME OF FILE.pdf" title="">NAME OF LINK AS YOU WANT IT TO APPEAR </a>
  4044.  
  4045. to embed the pdf in a webpage:
  4046. <embed src="NAME OF FILE.pdf" width="500" height="375">.
  4047.  
  4048. 21 add current date using vbScript: (visual basic script)
  4049. <script type="text/vbscript">
  4050. Dim myDateString
  4051. myDateString = Date()
  4052. document.write(myDateString)
  4053. </script>
  4054.  
  4055. 22 EMBED A CHAT:
  4056.  
  4057. a chat with webcam, picture sharing and voice:
  4058. www.oohya.net
  4059.  
  4060. example:
  4061. <br><a href="http://www.oohya.net/index.php?option=com_content&task=view&id=85&Itemid=1">Click Here to embed OohYa Chat in your profile.</a></br>
  4062. <br><p><object type="application/x-shockwave-flash" allowScriptAccess="always" allowNetworking="all" height="425" width="525" data="http://www.oohya.net/123flashchat/client/123flashchat.swf?init_root=http://www.oohya.net/123flashchat/client/">
  4063. <param name="allowScriptAccess" value="always" />
  4064. <param name="allowNetworking" value="all" />
  4065. <param name="movie" value="http://www.oohya.net/123flashchat/client/123flashchat.swf?init_root=http://www.oohya.net/123flashchat/client/" />
  4066. </object><br />
  4067. <a href="http://www.oohya.net">Free Chat Rooms</a>
  4068.  
  4069. other chat providers (use a search engine to look them up):
  4070. chatango.com
  4071. 99Chats, TinyChat, Meebo Chat, Chat Maker, Yaplet, Gabbly
  4072.  
  4073. 23 web show :
  4074. find a live streaming provider and embed(</embed>) or add its link:
  4075. A stickam.com , in the site in your profile: embed your stickam player on your web site
  4076. http://www.ustream.tv/ (sign up ...), login, broadcast now, you can get the embed link from your profile page
  4077. (live embed) or from bellow the video stream, bellow share this ( embed stream)
  4078. click on the ìEmbedî tab. From the "Embed the Live Video anywhere!" text field, and click on ìCopy Embedî
  4079. (you can also embed Chat or Social Stream modules) and paste this into your HTML code.
  4080. B livestream.com , www.justin.tv
  4081.  
  4082. 24 publish your site:(write down all user passwords you set) see 24 to publish for free
  4083. A get a disposable credit card like visa's from the post office
  4084. B buy a domain (search buy a domain(url)) you can use http://www.websitepalace.com/ for example
  4085. also: Register.com and NetworkSolutions.com
  4086. C buy space in a webhost(most offer to buy a domin) you can use http://www.websitepalace.com/ for example
  4087. the webhost can offer you services like add a forum or add ssl security
  4088. D ftp your site to your domain:
  4089. internet explorer(IE), tools, internet options, advanced tab, enable ftb view outside IE is checked
  4090. create a desttop shortcut type:
  4091. explorer.exe ftp://username:password@servername (webhost is server name or your website url) the password
  4092. in the webhost and also called credentials
  4093. or open ftp://siteurl and enter your user and password(might need to: file,login)
  4094. sometimes you can ftp via your webhost
  4095. or use filezilla (ftp software)
  4096.  
  4097. 25 host your site on your own pc(for free):
  4098. optional : ask your isp(internet service provider) for a static(not changing ipaddress)
  4099. option A:
  4100. control panel, add or remove programs, add/remove windows components, internet information services(iis) -
  4101. checked, next, new window asks you to insert windows cd, wait till install wizard will have completed.
  4102. mycomputer, c:, inetpub, wwwroot, put site files folders in wwwroot folder
  4103. start, control panel, administrative tools, internet information services, hpc, websites, default website -
  4104. right click, properties, documents, add yourSiteFile.html, ok
  4105.  
  4106. to get your ip adress: go to ipchicken.com or start, run, cmd, ipconfig (look at 2nd ip Address)
  4107.  
  4108. connect to your site by: entering your ip adress to enter your site from anywhere (if your pc is on) or
  4109. on your pc type the url(in the webrowser) localhost. to get a name in addition to your ip address(a site domain
  4110. name): go to no-ip.com or search for: dns for static ip
  4111.  
  4112. option B:
  4113. Download Wampserver, type localhost for the server name, 13To use Wampserver, create a folder in the
  4114. www directory and save the files for your site in that folder.
  4115. 14The address for your site will be: yourstaticipaddress/yourfolderinthewwwdirectory/. Except if you signed
  4116. up for a static DNS service (see end of option B)
  4117.  
  4118. WARNING: update windows and install an antivirus when running hosting on your pc.
  4119. also you want to have fast adsl(internet connection)
  4120.  
  4121. 26 Web Statistics Software:(to check how popular your site is)
  4122. Analog Website: www.analog.cx
  4123. AWStats Website: awstats.sourceforge.net
  4124. Google Analytics Website: www.google.com/analytics
  4125. Webalizer Website: www.mrunix.net/webalizer
  4126. VisitorVille Website: www.visitorville.com
  4127.  
  4128. now you can delete update downlod and add files by dragging into and out off the ftp
  4129.  
  4130. 27 usualy homepage.htm opens for your domain url]
  4131.  
  4132.  
  4133. CSS (graphics for html)
  4134.  
  4135.  
  4136. Cascading Style Sheets (CSS) (adding simple graphics to your html code):
  4137.  
  4138. "HTML tag" { "CSS Property" : "Value" ; }
  4139. "Property" (html attribute) is the CSS element you wish to manipulate
  4140. "VALUE" represents the value of the specified property.
  4141.  
  4142. 1 internal css:
  4143. <html>
  4144. <head>
  4145. <style type="text/css">
  4146.  
  4147. p {color: white; }
  4148. body {background-color: black; }
  4149. </style>
  4150. </head>
  4151. <body>
  4152. <p>White text on a black background!</p>
  4153. </body>
  4154. </html>
  4155.  
  4156. 2 External CSS (a file that contains only CSS code and is saved with a ".css" file extension):
  4157. in notepad type:
  4158. body{ background-color: gray;}
  4159. p { color: blue; }
  4160. h3{ color: white; }
  4161. save as fileName.css (in the same folder of your .html file)
  4162. in the html:
  4163. <html>
  4164. <head>
  4165. <link rel="stylesheet" type="text/css" href="fileName.css" />
  4166. </head>
  4167. <body>
  4168. <h3> A White Header </h3>
  4169. <p> This paragraph has a blue font.
  4170. The background color of this page is gray because
  4171. we changed it with CSS! </p>
  4172. </body>
  4173. </html>
  4174.  
  4175. 3 inline css (can overide other two types of css):
  4176. <p style="background: blue; color: white;">A new background and font color with inline CSS</p>
  4177.  
  4178. 4 css classes:
  4179. css code:
  4180. p.first{ color: blue; }
  4181. p.second{ color: red; }
  4182. html code:
  4183. <p class="first">This is a paragraph that uses the p.first CSS code!</p>
  4184. <p class="second">This is a paragraph that uses the p.second CSS code!</p>
  4185. example 2: css code:
  4186. p{ color: red; font-size: 20px; }
  4187. p.test1{ color: blue; }
  4188. p.test2{ font-size: 12px; }
  4189. html code: (in body (webpage contents(text and pictures) area))
  4190. <p class="test1">This is a paragraph that uses the p.test1 CSS code!</p>
  4191. <p class="test2">This is a paragraph that uses the p.test2 CSS code!</p>
  4192.  
  4193. 5 css background: (text background)
  4194. p { background-image: url(smallPic.jpg); }
  4195. h4{ background-image: url(picture url here sould end with picture formate like .jpg); }
  4196. example 2:
  4197. p {
  4198. background-image: url(smallPic.jpg);
  4199. background-repeat: repeat; } (horizontal)
  4200. h4 {
  4201. background-image: url(smallPic.jpg);
  4202. background-repeat: repeat-y;} (vertical)
  4203. ol {
  4204. background-image: url(smallPic.jpg);
  4205. background-repeat: repeat-x;} (horizontal short)
  4206. ul {
  4207. background-image: url(smallPic.jpg);
  4208. background-repeat: no-repeat;} (vertical short)
  4209.  
  4210. 6 CSS Fixed Background Image( with scrolling):
  4211. textarea.noScroll {
  4212. background-image: url(smallPic.jpg);
  4213. background-attachment: fixed;
  4214. }
  4215. textarea {
  4216. background-image: url(smallPic.jpg);
  4217. background-attachment: scroll;}
  4218.  
  4219. 6 CSS Gradient(fading) Background:
  4220. p {
  4221. background-image: url(http://www.example.com/gradient.gif);
  4222. background-repeat: repeat-x;
  4223. }
  4224.  
  4225. 7 css font:
  4226. h4 { font-family: sans-serif; }
  4227. h5 { font-family: serif; }
  4228. h6 { font-family: arial; }
  4229. size:
  4230. p { font-size: 120%; }
  4231. ol{ font-size: 10px; }
  4232. ul{ font-size: x-large; }
  4233. ul{ font-weight: bolder; } (bold text)
  4234. decoration:
  4235. h4{ text-decoration: line-through; }
  4236. h5{ text-decoration: overline; }
  4237. h6{ text-decoration: underline; }
  4238. a { text-decoration: none; }
  4239. align:
  4240. p { text-align: right; }
  4241. h5{ text-align: justify; }
  4242. text case:
  4243. p { text-transform: capitalize; }
  4244. h5{ text-transform: uppercase; }
  4245. h6{ text-transform: lowercase; }
  4246. CSS White Space ( until </br> long text will be horizontally scrolled)
  4247. p { white-space: nowrap; }
  4248. CSS Word Spacing
  4249. p { word-spacing: 10px; }
  4250. p { letter-spacing: 3px; } (CSS Letter Spacing)
  4251.  
  4252. 8 CSS Padding (framing the text):
  4253. p {padding: 15px; border: 1px solid black; }
  4254. h5{padding: 0px; border: 1px solid red;}
  4255.  
  4256. 9 css border:
  4257. p.solid {border-style: solid; }
  4258. p.double {border-style: double; }
  4259. p.groove {border-style: groove; }
  4260. p.dotted {border-style: dotted; }
  4261. p.dashed {border-style: dashed; }
  4262. p.inset {border-style: inset; }
  4263. p.outset {border-style: outset; }
  4264. p.ridge {border-style: ridge; }
  4265. p.hidden {border-style: hidden; }
  4266. example 2: border table:
  4267. table { border-width: 7px;
  4268. border-style: outset; }
  4269. td { border-width: medium;
  4270. border-style: outset; }
  4271. p { border-width: thick;}
  4272. example 3
  4273. table { border-color: rgb( 100, 100, 255);
  4274. border-style: dashed; }
  4275.  
  4276. td { border-color: #FFBD32;
  4277. border-style: ridge; }
  4278.  
  4279. p { border-color: blue;
  4280. border-style: solid; }
  4281.  
  4282. border-style: solid; }
  4283.  
  4284. 10 CSS List Style Type:
  4285. ol { list-style-type: upper-roman; }
  4286. ul { list-style-type: circle; }
  4287. list with images:
  4288. ul { list-style-image: url("listArrow.gif"); }
  4289. ol { list-style-image: url("listArrow2.gif"); }
  4290.  
  4291. 11CSS Links ( Pseudo-classes )
  4292. css code:
  4293. a:link { color: red; }
  4294. a:visited { color: red; }
  4295. a:hover { color: blue; } (also a:active for while clicking a link)
  4296. html code:
  4297. <a href="">This is a special CSS Link</a>!
  4298. css fat example:
  4299. a:hover{
  4300. color: blue;
  4301. background-color: red;
  4302. font-size: 27px;
  4303. border: 10px inset blue;
  4304. font-family: serif;
  4305. text-transform: uppercase;
  4306. text-decoration: line-through;
  4307. letter-spacing: 3px;
  4308. word-spacing: 6px;
  4309. font-weight: normal;}
  4310.  
  4311. 12 CSS Cursor Code:
  4312. p { cursor: wait }
  4313. h4 { cursor: help }
  4314. h5 { cursor: crosshair }
  4315.  
  4316. 13 search for: CSS Reference
  4317. to get a list of all css attributes and values
  4318.  
  4319.  
  4320. SEO
  4321.  
  4322.  
  4323. search engine optimization :
  4324. http://siteexplorer.search.yahoo.com/submit
  4325. http://www.google.com/addurl/?hl=en&continue=/addurl
  4326. http://www.bing.com/webmaster/SubmitSitePage.aspx
  4327.  
  4328.  
  4329. VBULLETIN CODES
  4330.  
  4331.  
  4332. 1 color : [COLOR="blue"]text[/COLOR]
  4333. 2 list :
  4334. ][LIST=1]
  4335. [*]That was by MC Hawking. A legend in the making (and you have a good taste in music LordOrwell ;)
  4336. [*]That... thing... isn't going to dominate anything. I'd rather look and listen to Justin Beiber for christ sakes.
  4337. [/LIST]
  4338. 3 double click thread title to rename
  4339. 4 [video]value[/video]
  4340. [video]video url[/video] (doesn't work for all vbulletin forums)
  4341. 5 space / shift + space : navigate through posts fast
  4342. 6 vbcode : [highlight][/highlight]
  4343.  
  4344. emoticon list :
  4345. :) :( :o :D
  4346. ;) :p :cool: :rolleyes:
  4347. :mad: :eek: :confused: :bigyello:
  4348. :wave: :lol: :blush: :cry:
  4349. :ehh: :sick: :thumb: :down: :afrog:
  4350. :eek2: :duck: :check:
  4351.  
  4352. http://www.smiley-faces.org/smiley-faces-001.php
  4353. http://www.freesmileys.org/emoticons-tekken.php
  4354. paul
  4355. [url=http://www.freesmileys.org/emoticons.php][img]http://www.freesmileys.org/emoticons/emoticon-tekken-013.gif[/img][/url]
  4356. true ogre
  4357. [url=http://www.freesmileys.org/emoticons.php][img]http://www.freesmileys.org/emoticons/emoticon-tekken-017.gif[/img][/url]
  4358. sasuke
  4359. [url=http://www.freesmileys.org/emoticons.php][img]http://www.freesmileys.org/emoticons/emoticon-anime-005.gif[/img][/url]
  4360. kakashi runing
  4361. [url=http://www.freesmileys.org/emoticons.php][img]http://www.freesmileys.org/emoticons/emoticon-anime-010.gif[/img][/url]
  4362. gara
  4363. [url=http://www.freesmileys.org/emoticons.php][img]http://www.freesmileys.org/emoticons/emoticon-anime-015.gif[/img][/url]
  4364. angel defender
  4365. [url=http://www.freesmileys.org/emoticons.php][img]http://www.freesmileys.org/emoticons/emoticon-anime-027.gif[/img][/url]
  4366. boobs
  4367. [url=http://www.freesmileys.org/emoticons.php][img]http://www.freesmileys.org/emoticons/emoticon-char-004.gif[/img][/url]
  4368. boobs 2
  4369. [url=http://www.freesmileys.org/emoticons.php][img]http://www.freesmileys.org/emoticons/emoticon-anime-050.gif[/img][/url]
  4370. alian
  4371. [url=http://www.freesmileys.org/emoticons.php][img]http://www.freesmileys.org/emoticons/emoticon-monster-001.gif[/img][/url]
  4372. matrix
  4373. [url=http://www.smiley-faces.org][img]http://www.smiley-faces.org/smiley-faces/smiley-face-matrix-006.gif[/img][/url]
  4374. bring it
  4375. [url=http://www.smiley-faces.org][img]http://www.smiley-faces.org/smiley-faces/smiley-face-matrix-004.gif[/img][/url]
  4376. cartman
  4377. [url=http://www.freesmileys.org/emoticons.php][img]http://www.freesmileys.org/emoticons/emoticon-south-park-006.gif[/img][/url]
  4378. chobits
  4379. [url=http://www.freesmileys.org/emoticons.php][img]http://www.freesmileys.org/emoticons/emoticon-anime-073.gif[/img][/url]
  4380. customize
  4381. http://www.freesmileys.org/custom/index.php
  4382. evil :
  4383. [url=http://www.freesmileys.org/smileys.php][img]http://www.freesmileys.org/smileys/smiley-whacky017.gif[/img][/url]
  4384.  
  4385. also alt+keypad numbers will type emoticons, symbols and chars
  4386.  
  4387. BLOGGING
  4388.  
  4389.  
  4390. http://www.thoughts.com/free-blog
  4391. https://en.wordpress.com/signup/
  4392. http://www.sosblogs.com/
  4393.  
  4394.  
  4395. MAKE A GIF
  4396.  
  4397.  
  4398. http://picasion.com/
  4399. http://gifmake.com/
  4400. http://www.createagif.net/
  4401. http://www.gifup.com/
  4402. http://www.loogix.com/
  4403. http://gickr.com/
  4404.  
  4405.  
  4406. HACKING
  4407.  
  4408.  
  4409. hide a file behind an image
  4410.  
  4411. start, run, cmd , put an image file and a file to hide on the desktop
  4412. in cmd : cd desktop, Copy /b imagename.jpg + filename.rar finalnameofimage.jpg
  4413. (no spaces in file names)
  4414.  
  4415. Make a Private Folder
  4416.  
  4417. make a folder on the desktop nwme it whatever U want
  4418. in cmd :
  4419. Cd desktop
  4420. Cacls folder /E /P everyone:n
  4421.  
  4422. now it is unopenable, to unlock :
  4423. cmd
  4424. Cd desktop
  4425. Cacls folder /E /P everyone:f
  4426.  
  4427. to change cmd text color : color help
  4428. then from the list green :
  4429. color 2
  4430.  
  4431. to truly protect a pc ya gotta passwrod the bios, the OS and phisically lock the machine
  4432.  
  4433. Some Trojans :
  4434.  
  4435. Beast, Back Orifice, Net Bus, Pro Rat, Girl Friend, Sub Seven
  4436.  
  4437. Protecting Your Files from Google :
  4438.  
  4439. put a robots.txt file in your site
  4440.  
  4441. Cross Site Scripting (XSS)
  4442.  
  4443. in input boxes the hacker can enter scripts like html , then the result of sending it will be vicious links, and embeded stuff
  4444.  
  4445. Directory Traversal Attack
  4446.  
  4447. in the url you add ../../../../../etc/passwd then you go up directories
  4448.  
  4449. SQL Injection
  4450.  
  4451. Login: 1' or '1'='1 and Password= 1' or '1'='1
  4452. Login: 1' or '1'='1';--
  4453. as a asp.net programmer you must negate sending : ë, ì, ;, --
  4454. Always store the Passwords in the Database server in the Encrypted Form
  4455.  
  4456. proxy site :
  4457. use any of web proxy sites to get bypass a blocked site
  4458.  
  4459. Sniffers : software that sits in a network and through it the hacker collects passwords and stuff
  4460. sniffer : Ettercap : http://sourceforge.net/projects/ettercap/files
  4461.  
  4462. fix corrupted XP files :
  4463.  
  4464. 1. Place the xp cd in your cd/dvd drive
  4465. 2. Go to start
  4466. 3. Run
  4467. 4. Type sfc /scannow
  4468.  
  4469. SEND FAKE MAILS FROM HACKING TECH :
  4470.  
  4471. http://www.hackingtech.co.tv/index/0-93
  4472.  
  4473. check if email is fake :
  4474. 1 open the email
  4475. 2 Click on the downward arrow near reply button. and click on show original
  4476. 3 check received: ...
  4477.  
  4478. Key loggers : software that records user keys pressed (get passwords typed)
  4479.  
  4480. Call target from Their Own Number :
  4481.  
  4482. 1 http://www.mobivox.com and register there for free account
  4483. 2 use target info that is known (cell phone number)
  4484. 3 Click on "Direct WebCall" After successful Login into your Mobivox account
  4485.  
  4486. get full internet speed of your LAN :
  4487. use Netcut
  4488. select all or any one of the IP addresses seen on the screen exept the first 2 IP
  4489. press the cut off button or resume for selected IP
  4490.  
  4491. to negate :
  4492. Anti NetCut 2 : http://www.hackingtech.co.tv/anti_netcut_2.rar
  4493. also, in the program : Who is using Net Cut
  4494.  
  4495. HACK A WIFI :
  4496.  
  4497.  
  4498. Air crack is an 802.11(protocol) WEP and WPA-PSK keys cracking application that is able to recover keys once enough data
  4499. packets have been captured(Sniffed).
  4500. dl from : http://u.to/ayak
  4501.  
  4502.  
  4503. make a custom computer virus
  4504. dl virus maker :
  4505. http://www.hackingtech.co.tv/JPS_Virus_Maker.rar
  4506.  
  4507. How to Disguise as Google Bot to see restricted sites (in IE):
  4508.  
  4509. Copy the following into a notepad file and save as Useragent.reg
  4510. Windows Registry Editor Version 5.00
  4511. [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\5.0\User Agent]
  4512. @=îGooglebot/2.1"
  4513. "Compatibleî=î+http://www.googlebot.com/bot.htmlî
  4514. or dl it :
  4515. http://www.hackingtech.co.tv/useragent.reg
  4516.  
  4517. Double-Click on the file Useragent.reg to merge the registry file into your Windows Registry.
  4518. Now restart your computer.you surf as googlebot now
  4519. to undo do the same with:
  4520. Windows Registry Editor Version 5.00
  4521. [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\5.0\User Agent]
  4522. @=îMozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)î
  4523. or dl from :
  4524. http://www.hackingtech.co.tv/normalagent.reg
  4525.  
  4526. hack windows or mac password :
  4527.  
  4528. burn Ophcrack ISO : http://ophcrack.sourceforge.net or
  4529. http://www.hirensbootcd.net/download.html , boot from cd (in bios), write passwords, boot from harddisk
  4530.  
  4531. make a trojan :
  4532. http://www.hackingtech.co.tv/Trojans/Beast.rar
  4533.  
  4534.  
  4535. CRACKING
  4536.  
  4537. Software cracking is the modification of software to remove or disable : copy protection, trial/demo version, serial number,
  4538. hardware key, date checks, CD check or software annoyances like nag screens and adware
  4539.  
  4540. OllyDbg, GDB, SoftICE, or MacsBug : drag the exe into the debugger and you get the source code
  4541. until the software cracker reaches the subroutine that contains the copy protection
  4542. The binary is then modified using the debugger or a hex editor
  4543.  
  4544. open in ollydbg, f9 to start debugging
  4545. rightclick search all reference strings, see where error or serial messages appeare and change jnz to je
  4546. or jmp to jnz
  4547.  
  4548. the same can be done with decompilers such as .net deflector : drag a .net exe file into it and get the source code.
  4549.  
  4550.  
  4551. WORKSHOP SAFETY
  4552.  
  4553.  
  4554. Eye protection
  4555.  
  4556. Eye protectors include safety spectacles, eyeshields,
  4557. goggles, welding filters, face shields and hoods, barrier creams (like vaselin)
  4558.  
  4559. Head protection : industrial safety helmets, caps
  4560.  
  4561. Foot protection :
  4562.  
  4563. foundry boots with steel toe caps, which are heat resistant and designed to keep out molten metal
  4564. wellington boots to protect against water (for welding), and anti-static footwear
  4565.  
  4566. Hand protection : Gloves, Barrier creams (like vaselin), electricly isolated gloves
  4567.  
  4568. Protective clothing : high visibility, and leather
  4569.  
  4570. ear protection for noise
  4571.  
  4572. never : clean a running machine or use compressed air to clean it
  4573.  
  4574. keep fire extinqusher at hand
  4575.  
  4576. Surface grinding : a rotating stone is used to finish grind(or sharpen) the material surface
  4577.  
  4578. chipest easiest tools : japanese(exacto) knife, chisel, hand drill
  4579.  
  4580. soldering : the melting of a low melting point metal to join 2 others (alluminum melts at 660C)
  4581. welding : connect metal to melt to ground, touch with 2nd metal thats connected to high voltage like battery
  4582.  
  4583.  
  4584. CNC SETUP AND OPERATION
  4585.  
  4586.  
  4587. setup time: last part of prev production, till first good part of current production.
  4588. operator cycle time: full production time div number of workpieces.
  4589.  
  4590. SETUP:
  4591. 1teardown:
  4592. 1.1 clean swarf, (if needed) remove holding devices(clamps)
  4593. 1.2 remove unneeded cutting tools
  4594. 1.31 power on control panel, power on machine(to power off first machine then control panel)
  4595. 1.312 allign new clamps x,y axis to spindle x,y with dial indicator remainind constant degree
  4596. 1.32 delete previous cnc program
  4597. 2 assemble:
  4598. 2.1 mount holding device (clamp) and align with dial indicator
  4599. 2.2 assign program zero:
  4600. place edge finder on spindle to get x y of zero point according to work sheet.
  4601. get z by placing 3inch block on workpiece touch spindle nose to block, add 3 inches to current z
  4602. 2.3 cutting tools assembly & measurements (length, radius) for tool offsets
  4603. 2.32 before first run increase tool length (by 0.010) for tools to do everything but holes (like pockets), same goes for radius.
  4604. 2.4 enter offsets, load cnc program with dnc(distributive numerical control)
  4605. 2.5 varify cnc program and save:
  4606. with proven programs go to cycle start
  4607. rapid traverse overide - slows program at varification
  4608. at first run : activate without workpiece
  4609. at second run : activate single step and dry run, then press cycle start after each tool (m01)
  4610. at 3rd run: activate single step, rapid overide 10%
  4611. cycle start button to start or resume.
  4612. make shure the spindle spins BEFORE contacting the work piece, keep finger ready on feed hold button.
  4613. if hear ominouse sound you sould use panic button.
  4614. the reset key: undo program changes after input, stops process, negates alarm
  4615. measurments 1st piece now or every 30 pieces, adjust offsets see get tolerance.
  4616.  
  4617. MAINTAINING PRODUCTION:
  4618. *from sheet talk to setup person
  4619. 1 load workpiece (metal casting)
  4620. 2 start cycle, watch out for tool wea/break
  4621.  
  4622. 3 replace dull tools
  4623. 4enter new offsets
  4624. 5 lub machine
  4625.  
  4626. GET TOLARANCE:
  4627. x = +n1,-n2
  4628. tolerance band = (n1 +|N2|)/2
  4629. mean value = x + n1 -(n1 +|N2|)/2
  4630. format x=+-n1 is x =+n1,-n1
  4631. measure completed workpiece:
  4632. if sizes are bigger than corresponding mean value : increase tools offset
  4633. if sizes are smaller than corresponding mean value : decrease tools offset
  4634.  
  4635. cheats :
  4636. MDI, gcodes to do stuff:
  4637. S speed of spindle(drill), example S 1800
  4638. M03- clockwise spin
  4639. M04- ccw spin
  4640. M05- spindle off
  4641. M07- mist coolant on
  4642. M08- coolant on
  4643. M09 coolant off
  4644. T15- ready tool 15
  4645. m06-tool change
  4646. M60 auto pallet change
  4647. check your machine manual for its unique codes
  4648.  
  4649. metal also come in sheets which are simpleaand cheap to cut, drill and fold using any basic drills or saws.
  4650.  
  4651. to make a sphere : use a laith (a mill that spins the stack material) + pitagoras (x^2 + y^2 = R(radius)^2)
  4652. then ball shaped drill finish
  4653.  
  4654. A METAL MELTING FURNACE
  4655.  
  4656.  
  4657. 1 line (metal drum) with a layer of 7 cm refractory concrete (you can place this in a hole in the ground
  4658. 2 the drum will have an opening at its top and a smaller opening in the side(to be pumped with air(from a fan))
  4659. 3 place the metal and the coal in the drum (if you use propane its to be pumped in from another hole
  4660. (in which case The torch hole should fit exactly))
  4661. 4 the user can observe the melting from the top hole but must wear a face shield, the brighter the hoter the metal,
  4662. light yellow = 1500 C / 2730 F
  4663. 5 the metal will be placed in a mold before or after melting, the mold can be made of clay and the operator can add coal
  4664. in the clay container
  4665. also, the melted metal can be pured into an external clay container, first remove the slag from the top of the
  4666. melted metal.
  4667.  
  4668. Max. temperature (inside the crucible): 1300 deg C (=2500 F) within 15 mins = 300 grams copper.
  4669.  
  4670. warnings
  4671.  
  4672. Dark welding goggles when temps above 1300 C are used.
  4673. leather gloves to hold long vice that will grab clay mold in furnace or move small furnace.
  4674. Large flat iron pan to put the mold on
  4675. have some cold water close by
  4676. When using metal molds, preheat them to above 100 deg C to remove any moisture
  4677. When using sand molds, the sand should not be too wet
  4678. wear shoes which are easy to kick off
  4679. Always wear an eye, or better a face, protection mask during pouring the metal or adding metal into the crucible
  4680. Avoid use of cadmium, lead or mercury in your alloys
  4681.  
  4682.  
  4683. PROPANE
  4684.  
  4685.  
  4686. to make propane heat petrolium but not enougth to burn it.
  4687. the gas is compressed in cold tempatures with a compressor(a bunch of fans in a cylinter, in an air tight system of
  4688. tubes)
  4689.  
  4690.  
  4691. OSCILLATOR
  4692.  
  4693.  
  4694. Crystal oscillators are oscillators where the primary frequency determining element is a quartz crystal
  4695.  
  4696. an oscillator lets out current according to its frequancy controlled by its capacitor and inductor sizes :
  4697. a capacitor is parallal linked in a circuit to 2 inductors, next the base of a transistor connects to one inductor
  4698. and the collector of the transistor connects between the two inductors, the main transistor circuit is open
  4699. and pass current according to the frequancy.
  4700.  
  4701. the capacitor parallal links to a battery or battery + quartch crystal combo.
  4702.  
  4703. by letting 2 or more oscillators open bases of transistors that connect together the main circuit of those transistors
  4704. will only be open according to the combo of frequancies: 10hz and 6hz will open at 30hz, 6hz and 4hz will
  4705. open every 12hz, therefore the frequency of a signal combines with that af an oscillator to open a specific circuit
  4706. the signal can also be audio current (that is how a modern phone works).
  4707.  
  4708.  
  4709. OVERLORD SKILL : robotics wave punch of destruction
  4710. SO IT HAS COME TO THIS YOU NEED A CODE FOR ROBOTICS BUT ITS NOT FOUND ONLINE
  4711. THIS IS A SPECIAL TECHNIQUE :
  4712.  
  4713.  
  4714. input : wire the keyboard
  4715. output :
  4716. 1 wire speaker wires in parallal to motor or oscillator output is controlled by sound frequency or volume
  4717. 2 connect the screen to lightsensors and use pictureboxes
  4718.  
  4719.  
  4720. CIRCUIT BOARD ETCHING
  4721.  
  4722.  
  4723. 1 use laser printer to print a black and transparent image of the cb(circuit board)
  4724. 2 use photo frame, get a led sensitive board and pc board etching solution, open board in red lighten room,
  4725. 3 put cb board in photo frame under board image close frame light fram with uv light 13wat cfl bulb for 8 minutes
  4726. 4 mix positive pc board developing concentrate with water in ratio 1:10 repeatingly
  4727. 5 put board in fluid and swish, when all shiny rinse in cold water
  4728. 6 mix feric chloride(etching fluid) with water ratio 1:1 (avoid skin contact and ventilate area)
  4729. 7 swish board in mix every now and then for 20 minutes
  4730. 8 use mini drill press stand and .8 millimeter bit(were mask and goggles against swarf) to drill holes
  4731. 9 use nail polish remover to wipe board
  4732.  
  4733.  
  4734. NMOS TRANSISTORS
  4735.  
  4736.  
  4737. nmos transistor: turns on by gate voltage
  4738. 1 <p-type> wafer 100 orientation
  4739. 2 put in furnace and pump steam in, coat to 5000-6000 angstrom (check with color chart)
  4740. 3 put vynel barrier with 3 close holes on wafer(holes should be as close as possible), use hf acid to etch wafer(glass) in the holes to check:
  4741. water the wafer the water sticks to the oxide(steamed) areas only
  4742. 4 spin phosphorus silicate film on wafer(on pc fan), put in kiln at 1000 celcius 5 minutes, take out of furnace
  4743. let it cool 15-25 minutes
  4744. 5 etch entire wafer surface with acid (hcl or hf)
  4745. 6 furnace 15- 25 minutes with steam pumped
  4746. 7 use vynil mask and hf acid to etch gate(middle of 3 holes) area, put in furnace 1000 c no steam 15 minutes
  4747. it(middle hole) sould get to dark red pink color
  4748. 8 cut another mask with 2 holes not with middle gate hole etch holes, put conductive epoxy on vynil mask holes with wires
  4749. then put wire with epoxy on gate hole
  4750. 9 connect substrate of wafer(pur glass area) to ground
  4751.  
  4752. in jfet transistors the gate is doped with boron, when applying the smallest current to the jfet source and gate
  4753. output will flow via the drain.
  4754.  
  4755.  
  4756. FLASH MEMORY
  4757.  
  4758.  
  4759. works as a mosfet transistor, except the gate has layer of oxide on it to trap electrons between the glass and
  4760. the oxide (in the FloatGate).the oxide is connected to a current from above(ControlGate or word line).
  4761. if there are trapped electrons under FG the bit lines output will be higher(bitline input is source(area of glass
  4762. doped with phosphor, bitline output: doped area after FG)
  4763.  
  4764. 2 grids on the flash:
  4765. 1: x,y of bitline (FG)
  4766. 2: x,y of wordline(CG)
  4767.  
  4768. therefore if x1=x2=y2=y1=100(pins in to the chip) for example:
  4769. transistors(bits) = 100*100(sector)*100*100(per sector)
  4770.  
  4771. NOR flash:
  4772. 1 part of doped area connected to ground, 2nd part to charge.
  4773. Programming:write:
  4774. >5v at CG
  4775. DELETE:
  4776. a large voltage of the opposite polarity is applied between the CG and source(doped area on glass(silicon))
  4777. (pulling the electrons off the FG )
  4778.  
  4779.  
  4780. MAGNETIC CORE MEMORY
  4781.  
  4782.  
  4783. large number of small ferrite (ferromagnetic ceramic) toroids (cores) held together in a grid structure
  4784. Only a magnetic field greater than a certain intensity ("select") can cause the core to change its magnetic polarity
  4785.  
  4786.  
  4787. CHARCOAL
  4788.  
  4789.  
  4790. cover half a sphere of wood in sand, and leave a small hole in the top, burn.
  4791. also :
  4792. http://www.youtube.com/watch?v=6xpWBgkuNRE
  4793.  
  4794.  
  4795. SAND TO CHIP
  4796.  
  4797.  
  4798. 1 circuit diagrams
  4799. 2 quartz sand, melt, clean room, hermetically sealed container,
  4800. 3 silicon disk is spin coated with a photosensitive resist, uv light printed designs to wafer
  4801. exposed parts of resist are removed by developing fluid
  4802. 4 exposed parts are etched(glass etching)
  4803. 5 ion implementation, doped atoms are shot ot the wafer, then heated
  4804. 6 water to clean wafer
  4805. 7 barrier on wafer, copper pured on wafer, ground coppered wafer to the edges of tranches (to insulate
  4806. each inter connect from the others)
  4807. 8 tin silver pallets attached to frame, saw wafer to squares
  4808.  
  4809. PHOTO ELECTRIC CELL
  4810.  
  4811.  
  4812. 2 different metals are put in a vacuum tube, each metal connects to the - or + of a battery, when light hits
  4813. there will be power flow in the circuit.
  4814.  
  4815.  
  4816. FOX HOLE RADIO
  4817.  
  4818.  
  4819. connect: a coil to safety pin to sharpened pencil to a preheated razor blade in arrow, connect the circuit
  4820. to the ground, connect an antenna to the circuit, connect earphones to the circuit.
  4821.  
  4822. to increase earphones output: connect transistor source to the circuit, connect the base and drain to a battery
  4823. and to earphones in a raw.
  4824.  
  4825.  
  4826. GLASS
  4827.  
  4828.  
  4829. 45% white sand + 50% lime + 5% sodiom carbonate heated at 1500 celcius degrees
  4830.  
  4831.  
  4832. STEEL
  4833.  
  4834.  
  4835. mix 2% coke(or charcoal), preheated iron(from ore its black grey color) and limestone(can add aluminium at the end)
  4836. heat at 1250∞C degrees (250∞C for copper)
  4837.  
  4838. note : folded hot metal (can use hammer and envil) is used for katana swords
  4839.  
  4840. magnets: iron + neodium + boron
  4841.  
  4842. tin was added into the molten copper to form bronze
  4843.  
  4844.  
  4845. ALUMINIUM
  4846.  
  4847.  
  4848. Bauxite is an aluminium ore and is the main provider of aluminium
  4849.  
  4850. The Bayer process : bauxite is digested by washing with a hot solution of sodium hydroxide, NaOH (solt water)
  4851. , at 175 ∞C
  4852. The solution is clarified by filtering off the solid impurities
  4853. + electricity to get the aluminium
  4854.  
  4855.  
  4856. GOLD
  4857.  
  4858.  
  4859. gold, as rare as it is, is always found in nature as the metal that it is
  4860. workable as it is found, meaning that no technology beyond eyes to find a nugget and a hammer and an anvil to work
  4861. the metal is needed
  4862.  
  4863. Gold panning is mostly a manual technique of sorting gold. Wide, shallow pans are filled with sand and gravel that may
  4864. contain gold. The pan is submerged in water and shaken, sorting the gold from the gravel and other material
  4865.  
  4866. The panning material is usually removed from stream beds, often at the inside turn in the stream, or resting on the
  4867. bedrock bed of the stream , called placer deposits
  4868.  
  4869.  
  4870. MAGNEZIUM
  4871.  
  4872.  
  4873. boil brine, melt the salt, pass electric current through salt
  4874.  
  4875.  
  4876. TITANIUM
  4877.  
  4878.  
  4879. Refined rutile (or ilmenite) from the ore is reduced with petroleum-derived coke in a fluidized bed reactor at 1000 ∞C.
  4880. The mixture is then treated with chlorine gas, affording titanium tetrachloride TiCl4 and other volatile chlorides,
  4881. which are subsequently separated by continuous fractional distillation.
  4882. In a separate reactor, the TiCl4 is reduced by liquid magnesium (15-20% excess) at 800-850 C in a stainless steel
  4883. retort to ensure complete reduction:[2]
  4884.  
  4885. 2Mg(l) + TiCl4(g) ? 2MgCl2(l)(sea water salt) + Ti(s) [T = 800-850 C]
  4886.  
  4887.  
  4888. BATTERIES
  4889.  
  4890.  
  4891. 2 different metals or gases in contact with a solution such as lemon juice, sea water, or other.
  4892. connect batteries in a raw(+-+-) to increase voltage, parallal(++,--) to increase endurance.
  4893. pumping electricity (--,++) through the battery will charge it.
  4894.  
  4895. connected metals at different tempretures genarate electric current.
  4896.  
  4897.  
  4898. ALCOHOL:
  4899.  
  4900.  
  4901. mix yeast(rise, bread Celsius, white or barley), water, sugar, and give it 2-3 months to sit.
  4902. heating the alcohol with steam will make it more concentrated(it might explode).
  4903.  
  4904.  
  4905. BIODIESEL
  4906.  
  4907.  
  4908. heat vegetable oil, mix with alcohol(ethanol) and lye (NaOH), add water, remove buttom liquid
  4909. lye :
  4910. electrolysis of sodium chloride solution (brine(sea water)).
  4911.  
  4912.  
  4913. THERMITE:
  4914.  
  4915.  
  4916. mix aluminium with rust, when you burn it, it will reach 2500 Celsius degrees
  4917.  
  4918.  
  4919. LEATHER:
  4920.  
  4921.  
  4922. deskin animal, let the leather dry for 6 months,mix the leather with brain liquid, smoke leather.
  4923.  
  4924.  
  4925. PAPER:
  4926.  
  4927.  
  4928. Fibres from wood or plants is either ground to its individual constituents or treated chemically, by digestion with
  4929. acidic or basic liquors.THEe fibres are beaten (refined) .
  4930.  
  4931. the fibres are dewatered on a "sieve", then the sheets are pressed at least 3 times, then dried
  4932.  
  4933. ink can be made from crushed bugs.
  4934.  
  4935.  
  4936. CEMENT:
  4937.  
  4938.  
  4939. Cement is a fine, soft, powdery-type substance. It is made from a mixture of elements that are found in natural materials such as limestone, clay, sand and/or shale. When cement is mixed with water, it can bind sand and gravel into a hard, solid mass called concrete.
  4940.  
  4941. Cement can be purchased from most building supply stores in bags
  4942.  
  4943. Four essential elements are needed to make cement. They are Calcium, Silicon, Aluminum and Iron.
  4944.  
  4945. Calcium (which is the main ingredient) can be obtained from limestone, whereas silicon can be obtained from sand and/or clay. Aluminum and iron can be extracted from bauxite
  4946. and iron ore, and only small amounts are needed.
  4947.  
  4948. Cement mixed with water, sand and gravel, forms concrete.
  4949.  
  4950. Cement mixed with water and sand, forms cement plaster.
  4951.  
  4952. Cement mixed with water, lime and sand, forms mortar.
  4953.  
  4954. Cement should be stored in a dry area.
  4955.  
  4956. how cement can be made :
  4957.  
  4958.  
  4959. 1.) Limestone is taken from a quarry. Smaller quantities of sand and clay are also needed. Limestone, sand and clay contain the four essential elements required to make cement.
  4960. The four essential elements are calcium, silicon, aluminum and iron.
  4961.  
  4962. 2.) Boulder-size limestone rocks are transported from the quarry to the cement plant and fed into a crusher which crushes the boulders into marble-size pieces.
  4963.  
  4964. 3.) The limestone pieces then go through a blender where they are added to the other raw materials.
  4965.  
  4966. 4.) The raw materials are ground to a powder. This is sometimes done with rollers that crush the materials against a rotating platform.
  4967.  
  4968. 5.) Everything then goes into a huge, extremely hot, rotating furnace to undergo a process called "sintering". Sintering means: to cause to become a coherent mass by
  4969. heating without melting. In other words, the raw materials become sort of partially molten. The raw materials reach about 2700∞ F (1480∞C) inside the furnace.
  4970. This causes chemical and physical changes to the raw materials and they come out of the furnace as large, glassy, red-hot cinders called "clinker".
  4971.  
  4972. 6.) The clinker is cooled and ground into a fine gray powder. A small amount of gypsum is also added during the final grinding. It is now the finished product - Portland cement.
  4973.  
  4974. The cement is then stored in silos (large holding tanks) where it awaits distribution.
  4975. The cement is usually shipped in bulk in purpose-made trucks, by rail or even by barge or ship.
  4976.  
  4977.  
  4978. HOW TO MAKE A HUMAN SIZED DOLL
  4979.  
  4980.  
  4981. can be used as decoy
  4982.  
  4983.  
  4984. fill cloth (like tites) with doll fiber or cotton, metal wood or plastic to simulate bones, add a hot watter filled bottle
  4985. where possible inside, finally add a big doll head (and drill the mouth open).
  4986.  
  4987.  
  4988. HOLOGRAM
  4989.  
  4990.  
  4991. an image reflected from a light source at 45 degrees on a vertical glass in a dark area
  4992.  
  4993.  
  4994. MICROSOFT OFFICE 2003 / 2007/2010 EXCEL (or office thin apps)
  4995.  
  4996.  
  4997. excel is a buntch of cells the user puts (types) and saves data in (charts), it also offers automatic calculations.
  4998. excel files end with .xls (excel 2003) or .xlsx (excel 2007 and up)
  4999.  
  5000. cheat list:
  5001.  
  5002. 1 automaic month typer: type a month in a cell, drag the cells from bottom right point to the right, each cell is auto filled
  5003. with the next month. if you copy and drag 2 cells the rest of the dragged into cells autofill according to the interval betwin
  5004. the 2 dragged cells, same goes for numbers, time, days...
  5005.  
  5006. 2 get sum : select cells that connect to a raw or colomn of numbers and click the sigma (sum) button from the menu
  5007. strip or press alt + =
  5008.  
  5009. 3 insert a raw: click raw number, edit or right click, insert raw, all.
  5010.  
  5011. 4 get graph : select chart with data (cells with typed numbers and words surrounding them), click charts from menu strip.
  5012. for excel 2007 and up alt + f1 will add a chart.
  5013.  
  5014. 5 show currency: select cells with numbers, format, cells, select currency.
  5015.  
  5016. 6 =rept(element,times) for example =rept(6,3) in a cell will appear as 666. for text: =rept("hello",2)
  5017. also =rept(a1, 5) to repeat all data in cell a1. also =rept("X", click acell) the number in the cell is passed.
  5018.  
  5019. 7 EXTREME : fx button on the menu strip shows all cheats of excel, how to use them or chose to activate them.
  5020. in excel 2007 use the formula tab. all formulas begin with = like: =a1+a3 (typed in any cell)
  5021.  
  5022. 8 f4 - make cell data unautomatically changeble.
  5023.  
  5024. 9 name a table (chart) - select the table and name it in the textbox above the letter A colomn, enter.
  5025.  
  5026. 10 f12 - save file dialog.
  5027.  
  5028. 11 adjust colomn size to fit longest text cell in the colomn : double click betwin the colomn and next colomn letter.
  5029.  
  5030. 12 calculation : =a1\f2 (example of formula to be typed in a cell)
  5031.  
  5032. 13 enter + ctrl - enter data stay on cell (+ isn't to be pressed).
  5033.  
  5034. 14 =sum(click cells to sum) , =sum(a1:a4)
  5035.  
  5036. 15 avg : =average(c1:c4), same goes for max, min
  5037.  
  5038. 16 the brush of the menu strip copies a format (like currency) from selected cell to 2nd cells
  5039.  
  5040. 17 format, conditional. (for formats of cell data) can add:
  5041. condition, select from drop down arrow formula is, =select cell , f4 to make absolute delete $ from raw or colomn of
  5042. cell to unabsolute it, example: =$d4=today() then click format button to select format for the condition.
  5043.  
  5044. todays date row is highlighted with the selected format (color or whatever)
  5045.  
  5046. 18 =vlookup(b5,click table cells and f4,colomn number,true or false close match) , will present data from selected table
  5047. where the cell near it = b5 value or close to b5 value. warning select table data only not table heading (colomn titles)
  5048. blank cell is regarded as value 0.
  5049.  
  5050. 19 =if(isblank(cell),"text",vlookup(cell,name of table,column)) : in this vlookup is the else case of the if condition
  5051. =somthing is a formula
  5052.  
  5053. 20 copy a formula : select cell with formula and drag it on other cells or select other cells using ctrl and mouse
  5054.  
  5055. 21 ctrl ' : copy data of cell above
  5056.  
  5057. 22.1 printing
  5058. increase scalling before printing : print preview (from menu), page setup, change % of scalling (near adjust to)
  5059.  
  5060. 22.2 print only selected table : select table, ctrl + p check print selection
  5061.  
  5062. 23 freeze row to make it visible when scrowlling down : click cell, on menu window, check freeze panes
  5063.  
  5064. 24 common glitch repair:
  5065. automate calculations
  5066. tools, options, calculation tab, check automatic
  5067.  
  5068. 25 get amount of cells while dragging and number them up +1 from the data in prime cell : drag while ctrl is pressed
  5069.  
  5070. 26 transpose - paste row as colomn : select row, copy, ctrl + alt + v (or right click, special paste), check transpose
  5071. select colomn : ctrl + space bar , select row shift + space bar.
  5072.  
  5073. 27 B$1 - colomn 1 is locked $A1- A is locked
  5074. formula =B$1*$A1 is like current colomn,row1 * colomn1,current row when dragged across other cells
  5075.  
  5076. if you are on cell d4 and type b4 the value will be of the cell two rows above, if d4 if dragged to d5
  5077. d5 will display c4, however b$1$ will display the value of cell b1 even if dragged to other cells.
  5078.  
  5079. 28 enter same data in many cells - select cells, type data in currently selected cell, ctrl + enter.
  5080.  
  5081. 29 add date : ctrl + ; add time : ctrl + shift + ; or type in a cell : =now() then right click the cell to manipulate the format
  5082. of the current time.
  5083.  
  5084. 30 redo : ctrl + y , repeats last action or undo ctrl + z (undo)
  5085.  
  5086. 31 the ribbon is the fat tool bar bellow the main bars (view, home, insert...) collapse it : double click a main bar or
  5087. ctrl f1.
  5088.  
  5089. 32 split screen : double click beyond the arrow of the horizontal or vertical scroll bar or drag the edge of the chart,
  5090. to undo double click the split line
  5091.  
  5092. 33 copying from 1 xls file to another : open the 2 files, view, arrange all, now you can see both in a split screen or
  5093. ctrl + tab to change betwin them.
  5094.  
  5095. 34 copy without hidden set (to set hidden select colomn or row and right click) colomns and rows : alt + ;
  5096.  
  5097. 35 sort : select a list of cells, file, options, advanced, edit custom lists, import - to add selected list ( or you can
  5098. type the list if it wasn't selected ) :
  5099. now you can : select a chart, click sort (from data tab if you use excel 2007) and choose to sort by the list.
  5100. also select a typed word from your list and drag it to auto fill the next items in the list.
  5101. ( the lists can be deleted from the same place of the import )
  5102.  
  5103. simple sort a - z : select table, tab or shift + tab to get to the colomn by which you want to sort, click sort from the menu
  5104.  
  5105. 36 zoom : ctrl + scroll of mouse , go to first cell of worksheet : ctrl + home , go to last cell : ctrl + end
  5106.  
  5107. 37 duplicate a workshite (excel 2007) : drag a worksheet from the buttom of the screen, press ctrl, let go in new
  5108. worksheet area (where it says sheet2 sheet3 ...).
  5109.  
  5110. 38 drag and insert a row or colomn : drag, while pressing shift then let go of mouse.
  5111.  
  5112. 39 generate random number 0 < random < 1 : =rand()
  5113.  
  5114. 40 get count of unique entries(categories) in a row or colomn : {=sum(1/(countif(b2:b6,b2:b6)))} , {} can be omitted
  5115. you can click colomn b2:b700 instead of typing it while entering the formula. for the colomn :
  5116. b2 : 1 b3 : 2 b4 1 b5 : 5 b6 : 4 the output in the cell with the formula is 4 ( nums 1, 2, 5, 4)
  5117.  
  5118. 41 change all selected values : type a changer value in a cell, select it, copy (ctrl + c), select table, ctrl + alt + v
  5119. to special paste , select add, multiply or whatever to change the values in the chart by the changer value
  5120.  
  5121. 42 strike through : a line to go through characters (for fired employes data) ctrl + 5, press again to undo.
  5122.  
  5123. 43 remove border : press ctrl + shift + _ while bordered tables or cell groups are selected
  5124.  
  5125. 44.1 find parts duplicates : =if(c3:d3=c5:e5,"duplicate","unique") this goes in b2 and can be draggen down.
  5126. 44.2 negate duplicates (excel 2007) : data, data validation, settings tab, formula, type:
  5127. =countif(A:a,A1)=1 now in colomn A the same data can't be entered twice, the formula conditions the input.
  5128.  
  5129. 45 fast search : excel 2003 : click in a table, data (in the menu), list, creat list. excel 2007 : insert (from main menu),
  5130. table. now you can search using the new drop down arrows it give you viewing options. also you can color the table.
  5131. OR you can use (excel 2007) data, filter.
  5132.  
  5133. 46 record and replay actions : view, macrow. to save a file with the macrow : save as file.xlsm
  5134. in excel 2010 : first : file, options, customize ribbon, check developer tab, from menu, developer tab, macrow security
  5135. disable all macrow with notification. from the devloper tab you can record and play macrow (actions)
  5136. while recording use : ctrl + home or arrows or end to navigate in the worksheet, ctrl + f6 to switch windows
  5137. (or worksheets), ctrl + shift + arrows to select cells
  5138.  
  5139. 47 show all formulas in all cells and unshow : ctrl + `
  5140.  
  5141. 48 import, export data : in excel 2010 : data (from main menu) , to the left choose where to import data from : from
  5142. access, from text ... OR open the file from excel. EXPORT : save the file with an ending F12 (file extention) .txt .csv ...
  5143. ( but take out non text data such as pictures first )
  5144.  
  5145.  
  5146. VBA - visual basic for applications (in excel)
  5147.  
  5148.  
  5149. This chapter assumes you have read the vb.net chapter or know vb.
  5150. a macro enables user to record and replay actions in excel, when editing a macro you can program it using visual basic
  5151. script.
  5152.  
  5153. enable vba : file, options, customize ribbon, check developer tab, from menu, developer tab, macrow security
  5154. disable all macrow with notification. from the devloper tab you can record and play macrow (actions)
  5155. while recording use : ctrl + home or arrows or end to navigate in the worksheet, ctrl + f6 to switch windows
  5156. (or worksheets), ctrl + shift + arrows to select cells
  5157.  
  5158. in some versions of exel you will find the macro in : main menu, view tab
  5159.  
  5160. the recorded macro can be edited in vba which unlocks the cheats(vba codes) of the recorded macro actions
  5161.  
  5162. files with macro end with : .xlsm ( excel macro enabled workbook)
  5163.  
  5164. 1 toggle or untoggle vb ( visual basic ) editor : alt + f11
  5165.  
  5166. 2 open explorer work bar : ctrl + r
  5167.  
  5168. 3 in this workbook
  5169. private sub Workbook_BeforeClose(cancel as boolean) 'event to run at workbook close event
  5170. if me.saved = false then me.save
  5171. end sub ' private enables the sub or function only in the current workbook (not other workbook projects)
  5172.  
  5173. 4 display object browser (cheat list) - f2
  5174.  
  5175. 5 password your vba code : in vba, tools vbaproject properties
  5176.  
  5177. 6 insert, module (you can add many modules) : here goes the main code that will run. in it :
  5178. sub nameOfSub() ' you can run just the sub when the curser is in it and press f5
  5179. msgbox("moti barski")
  5180. end sub
  5181. function calccomisionx ( money as currency) 'can add : as double to display result with decimal
  5182. calccomisionx = calccomisionx * 0.2
  5183. end function ' now you can use the function in a cell in excel, type (in any cell) =calccomisionx(a2)
  5184. '(assuming a2 has a value in it)
  5185.  
  5186. 7 basics
  5187. dim n1 as integer ' define a variable
  5188. dim n2 as byte ' number 0-255
  5189. dim cr1 as currency, cr2 as currency ' define two variables in one line
  5190. static n3 as long ' will retain its value until workbook will have been closed, can only go in sub not as global variable
  5191. ' outside of sub
  5192. const someVar = 20 ' constant variable if defined locally (in a sub) it overwrites a global const with the same name
  5193. activecell.value - get current selected cell's value
  5194. worksheets("its name").range("cell").value ' or .activate - refer or get cell value of specific worksheet
  5195.  
  5196. 8 assign macro to run by clicking an added shape : main excel menu, insert, shape, right click shape, assign macro
  5197.  
  5198. 9.1 dim ar1(4) 'array
  5199. dim ic as integer
  5200. worksheets("sheet1").activate
  5201. range("b2").activate
  5202. for ic = 0 to 4 ' can add : step 2 or other number
  5203. ar(ic) = ActiveCell.offset(ic,1).value 'refer to cells ic row,1 colomn from b3
  5204. next ic
  5205.  
  5206. 9.2 dim ar2(6,7) as currency ' dimention array
  5207.  
  5208. 10 set wks = thisWorkbook.Worksheets("sheet1")
  5209. wks.tab.color = vbgreen ' wks is a shortcut name
  5210.  
  5211. 11 for each loop :
  5212. sub testForEach()
  5213. dim ar4(2) as string
  5214. dim var as variant
  5215. ar4(0) = "first"
  5216. ar4(1) = "2nd"
  5217. for each var in ar4
  5218. msgbox(var) ' do whatever
  5219. next var
  5220. end sub
  5221.  
  5222. for worksheets :
  5223. sub testForEach()
  5224. dim wb1 as workbook
  5225. dim ws1 as worksheet
  5226. set wb1 = ThisWorkbook
  5227. ar4(1) = "2nd"
  5228. for each ws1 in wb1.Worksheets
  5229. ws1.name &= "yo"
  5230. next ws1
  5231. end sub
  5232.  
  5233. 12 do loops : ctrl + c or escape to exit infinite loop
  5234. worksheets("sheet2").activate
  5235. range("A2").activate
  5236. do
  5237. if activecell.value = "" then exit do
  5238. activecell.offset(1,0).activate
  5239. loop
  5240.  
  5241. 13
  5242. dim n1 as integer
  5243. n1 =2
  5244. select case n1
  5245. case is => 3
  5246. msgbox("smaller than 3")
  5247. case is = 1
  5248. ' code here
  5249. case else
  5250. 'some code
  5251. end select
  5252.  
  5253. 14 debug : f8 step by step, f5 run there is also debug in the vba editor(screen)
  5254.  
  5255. 15 application. shows all sorts of tricks
  5256.  
  5257. 16 refer to cells (its similar to range)
  5258. cells(row,collomn).value ' notice row then collomn number
  5259. as a reminder
  5260. range("f5").value ' there is a difference
  5261.  
  5262. 17 cut paste : in a sub type :
  5263. worksheets("worksheetname").activate
  5264. range("b4:d20").select
  5265. selection.cut ' cuts the table mouse, .copy also works
  5266. sheets("sheetname").select ' work sheet to be paste on to is selected
  5267. activesheet.paste ' paste the selected table (cells)
  5268. application.cutcopymode = false
  5269.  
  5270. 18 events : to add do like in vb.net click an object from solution explorer, below near the properties window click
  5271. events, double click an event from the list, type your code in the added private sub in the editor(main vba) window.
  5272.  
  5273.  
  5274. MS ACCESS
  5275.  
  5276.  
  5277. terminology : row = record, collomn = category or field table = rows & collomns
  5278.  
  5279. 1 new, create, table thats pretty much it.
  5280.  
  5281. 2 if a field type is set (in the menu ribbon) as autonumber it will fill the field automatically with a number
  5282.  
  5283. 3 you can import excell files to ms access (import from menu)
  5284.  
  5285.  
  5286. THE ART OF WAR
  5287.  
  5288. THE DECISION HAS BEEN MADE THE PROCESS HAS BEGUN
  5289.  
  5290. THE ART OF WAR aka cheats for go(ancient board game)
  5291.  
  5292. 1 The Moral Law causes the people to be in complete
  5293. accord with their ruler.
  5294.  
  5295. 2 adapt your army to the weather
  5296.  
  5297. 3.1 rank your soldiers, higher rank commands lower rank
  5298. 3.2 higher levels are responsible for glitches
  5299.  
  5300. 4 map and protect the routes of provisions
  5301.  
  5302. 5 your general most have the most ability, wisdom and reliability
  5303.  
  5304. 6 All warfare is based on deception: show the enemy the opposite of your state
  5305. (when far appear near)
  5306.  
  5307. 7 tactics:
  5308. 7.1 enemy is stronger, evade him and split him by attacking his smallest division
  5309. 7.2 enemy is of choleric temper, anger him
  5310. 7.3 the bigger your enemy attack his supply lines
  5311. 7.4 take no delays
  5312. 7.5 forage on the enemy(take his materials)
  5313. 7.6 avoid attacking besiege walled cities
  5314. 7.7 capture those who surrender
  5315.  
  5316. 8 army:
  5317. 8.1 reward them for defeating the enemy
  5318. 8.2 treat soldiers politely, feed them and provide some entertainment for moral
  5319. 8.3 train your soldiers mentally and physically
  5320. 8.4 scold miss behaved soldiers
  5321.  
  5322. 9 attack
  5323. 9.1 If equally matched, we can offer battle;
  5324. if slightly inferior in numbers, we can avoid the enemy;
  5325. if quite unequal in every way, we can flee from him.
  5326. 9.2 place your army in secured locations to protect your turf, but always minimize there division
  5327. take high places and go fast, the first to the battle field has the advantage
  5328.  
  5329. strongest move :
  5330.  
  5331. place a small force as bait for the enemy, while trying to join that small force with a bigger stable force to sorround
  5332. the enemy.
  5333.  
  5334. 10 THE USE OF SPIES
  5335. 10.1 pay them alot so they will be loyal
  5336. 10.2 pay to convert enemy spies to double spies and give them liberties
  5337. 10.3 place your spies as various freelancers(like a PC technician) in the enemy's areas
  5338.  
  5339. as the battle progress the more preditions the general must make
  5340. so much for the art of war.
  5341.  
  5342. as for go, it can be used in tournaments to select employees.
  5343. http://www.online-go.com/index.php
  5344. http://online-go.org/
  5345.  
  5346.  
  5347. ONE ON ONE FIGHTING
  5348.  
  5349. yotamarker fighting style:
  5350.  
  5351. 1 use fear to attack for it is power.
  5352. 2 watch your target for the attack to determine itself automatically
  5353. 3 if your enemy is a negging women choose 1 word and repeat it in a loop until she stops
  5354. 4 120 push ups per day 6 days per week on knuckles to strengthen bones
  5355.  
  5356. so much for 1 on 1 fighting
  5357.  
  5358.  
  5359. NAVIGATION FOR QUERIERS
  5360.  
  5361.  
  5362. a technique for bicycle queries to get from a to destination b.
  5363.  
  5364. 1 get 4 directions: the sun sets in the west, opposite to that is the east, if the west is to your left you
  5365. are facing the north and behind you is the south.(or use compose)
  5366. 2 get a map the city(or town in japan) you work in(print it from the net or you can buy it in the city's gas stations)
  5367. 3 mark lines across your map :
  5368. 3.1 9 or 99 lines horizontal, 9 or 99 diagonal. (9 for small maps)
  5369. 3.2 number the formed squares horizontal.diagonal , button left square is 1.1
  5370. 3.3 make a list each squares and the places it contains, this will be memorized.
  5371. 4.1 point a is your start position, point b is your destination.
  5372. 4.2 just in case print from a map web site the route for your destination.
  5373. 4.3 if point b is in the map region but not listed ask your client hpw to get there he will say its near a point
  5374. in your list.
  5375. 5.1 if point a horizontal is lower then b's go north else go south
  5376. 5.2 if point a diagonal is lower then b's go east else go west
  5377. 5.3 if you are in the square of destination but can't find it ask or drive around the square for the destination.
  5378.  
  5379. for postal navigation : take a map of the region (big and small map) and a compass
  5380.  
  5381.  
  5382. SOLAR NAVIGATION
  5383.  
  5384.  
  5385. GET LATITUDE (north to south position on planet):
  5386.  
  5387.  
  5388. 1 build sexton:
  5389. 1.1 make have a circle of any material such as cardboard
  5390. 1.2 mark half circle worth degrees 0-90 (0 at half point on perimeter) with even spread
  5391. 1.3 tie string to circle center and tie paper clip to end of string
  5392. 2.1 aim half circle at sun till you get a light spot on dark object behind sexton
  5393. 2.2 check angle the string is on
  5394.  
  5395. GET LONGTITUDE(west to east position on planet) :
  5396.  
  5397.  
  5398. 1 write down place of your departure and make shure your watch is set accurately to local time
  5399. 2 while traveling find noon by the time in which the shadow is shortest
  5400. 2 check time difference between your watch and 12:00
  5401. 3 for each hour your ahead of 12:00 you are 1000 KM from departure location
  5402.  
  5403.  
  5404. japan addresses
  5405.  
  5406.  
  5407. japanese addresses are exceptions, there are no streets, japan is divided into squares within squares.
  5408.  
  5409. a japanese address(location):
  5410.  
  5411. japanese postal mark, postal code *
  5412. A1,A2,A3,A4,A5,A6
  5413. to person x
  5414.  
  5415. A1 is a square bigger then A2 and so on.
  5416. A1-a prefecture, ends with to for tokyo, do for hokkaido, fu for for osaka and kyoto and ken for other 43
  5417. prefectures
  5418. A2-municipality: ends with shi(city) or in tokyo also with ku(ward) or gun(big district)
  5419. A3-town: ends with cho, machi or mura(village)
  5420. A4-district ends with chome
  5421. A5-block ends with ban
  5422. A6-house number: ends with go
  5423.  
  5424. example:(instead of the make a small T with a line above it and put a horizontal line above o,u letters)
  5425. (te)100-8994
  5426. Tokyo-to Chuo-ku Yaesu itchome go-ban san-go
  5427. Tokyo Chou Yobin-kyoku
  5428. or:
  5429. Tokyo Central Post Office
  5430. 5-3, Yaesu 1-Chome
  5431. Chuo-ku, Tokyo 100-8994
  5432. or:
  5433. Tokyo Central Post Office
  5434. 1-5-3 Yaesu, Chuo-ku
  5435. Tokyo 100-8994
  5436. in kyoto instead of A4-6 you may write the streets intersection near the target and if the terget is:
  5437. above the streets :agaru
  5438. below the streets :sagaru
  5439. east the streets :higashi-iru
  5440. west the streets :nishi-iru
  5441.  
  5442.  
  5443. HOW TO WRITE A RESUME
  5444.  
  5445.  
  5446. name
  5447. date of birth
  5448. place of birth
  5449. contact(24\7)
  5450. status(single)
  5451.  
  5452. education/skills: degree/report card, place of study
  5453. expirience:
  5454.  
  5455. military service:
  5456. languages(and level):
  5457.  
  5458. hobbies:
  5459.  
  5460.  
  5461. How To Do Laundry
  5462.  
  5463.  
  5464. A washing machine
  5465. Laundry detergent
  5466. And a dryer
  5467. Stain remover (optional)
  5468. A toothbrush
  5469. Fabric softener, liquid or sheets (optional)
  5470. Some bleach
  5471. A clothesline or drying rack (optional)
  5472.  
  5473. 1 Separate clothes into: whites, light colors, delicates, and darks. take out hard objects and money from cloth
  5474.  
  5475. 2 stains place a concentrated dab of detergent or stain remover on the stains and work it in with a toothbrush or by rubbing the fabric against itself.
  5476.  
  5477. powders work best in water to remove clay and mud, while liquids are good at removing grease and oily stains.
  5478.  
  5479. 3 the detergent should go in when the machine is full of water(the start), the bleach after the clothes have been soaking a few minutes, and fabric softener during the rinse cycle.
  5480.  
  5481. 4 Choose cycle:
  5482.  
  5483. Use 'regular' for very dirty clothes and heavy cottons, 'permanent press' for your average load, and 'delicates' for knits or lightweight items.
  5484.  
  5485. If an article is particularly fine or lacy, hand-wash it to prevent any damage.
  5486.  
  5487. 5 Choose temperature of water
  5488.  
  5489. For whites or very dirty colorfast items, use hot water. For most average loads, use warm water. For delicates, bright colors, and to prevent clothes from shrinking, use cold water.
  5490.  
  5491. 6 hit start, The average wash cycle will take anywhere from 20 to 30 minutes.
  5492.  
  5493. 7 claen lint from filter
  5494.  
  5495. 8 hang cloth to dry or put in dryer
  5496.  
  5497. 9 softener sheet:
  5498.  
  5499. If you're using fabric softener sheets instead of liquid, add one sheet to the dryer.
  5500.  
  5501. final: Fold or hang clothes
  5502.  
  5503.  
  5504. PLANTING
  5505.  
  5506.  
  5507. HOPE IS ALL WE HAVE, WHEN EVERYTHING ELSE FAILS
  5508. 1 in a big container with holes: mix leftover vegetables, crussed eggs, dried leaves, leftover vegetables, straw,
  5509. leaves, twigs, paper,cardboard, grass clippings. aka brown and green materials. place layer of green on layer of
  5510. brown. mix up the pile every day to get air in it.
  5511.  
  5512. 2 mix up the soil, dig 3 inches deep trenches, add compost, plant the seed of plant.
  5513. if you wrap the plant with cardboard around it magetes will keep away.
  5514.  
  5515. 3 big plants are planted far apart according to their size.
  5516.  
  5517. 4 take out weeds and rocks, rake ground(to kill bug eggs).
  5518.  
  5519. 5 watering: 1 inch of water per week (3 hours for a small sprinkler ).
  5520.  
  5521. 6 usually plants are ready to eat after 3 months.
  5522.  
  5523. 7 How Long to Keep Garden Seeds:
  5524. 7.1 Store vegetable seeds and annual seeds for 2 to 3 years in a cool area with little moisture.
  5525. 7.2 Keep vegetable seeds like beets, cucumbers and radishes for up to 10 years in airtight containers
  5526. 7.3 Replace old asparagus, delphinium or magnolia seeds. They have a short seed life
  5527. 7.4 Keep individual varieties of seeds segregated in separate, clearly labeled containers. This helps to maintain seed strains and purity
  5528. 7.5 Keep seeds outside on the north side of the house away from the sun and drying winds. Place them in a cold
  5529. frame or green house for additional protection from the elements.
  5530.  
  5531. 8 Organic Garden Pest Control:
  5532. 8.1 Smell: Garlic, tobacco, rhubarb, fish and other strong smelling substances that are used to repel pests.
  5533. 8.2 Gases and odor molecules: Many plants give off natural odors or have volatile oils which some bugs find
  5534. unpleasant. Often these odors or oils are a warning to bugs that the plant contains its own built in insecticide.
  5535. Concoctions made from these plants will deter pests.
  5536. 8.3 Heat or fumes: Chilies, kerosene, methylated spirits, salt etc, will burn, harm or kill pests.
  5537. 8.4 Oil: Mineral oil, vegetable oils and proprietary oils, such as those made with cottonseed oil, will suffocate
  5538. soft-bodied pests.
  5539. 8.5 Soap: Natural vegetable based soaps or detergents are added to sprays in small amounts to make them
  5540. stick to plants. Many insects dislike and are harmed by soap also.
  5541. 8.6 Garlic fire spray: , chilli peppers, soap, vegetable oil, kerosene and water
  5542. 8.7 LADYBUGS.
  5543. 8.8 Fish Fertilizer
  5544. 8.91to kill ants mix Borax or other poison with peanut butter.
  5545. 8.92 If you find the ants' nest sprinkle: black pepper, cayenne pepper, cinnamon or chilli powder, salt
  5546. , Boiling water with digging in to the nest. also wear boots with fur on top to keep the ants from climing you
  5547.  
  5548. 10 Caterpillars:
  5549. spray with a molasses(or vinegar) blend. Mix one tablespoon of molasses with a litre of hot water. Then add a
  5550. teaspoon of liquid detergent and put in a spray bottle. Spray the leaves, top and bottom, about once a week.
  5551.  
  5552. 11 Earwigs:
  5553. crumple some newspaper in old flower pots and leave them in the garden. The earwigs will hide in the paper
  5554. once they're done eating. In the morning, shake the paper out.
  5555.  
  5556. 12 Gophers: keep a cat and a bird bath for birds of prey.
  5557.  
  5558. 13 Mice: Deter mice with peppermint or eucalyptus oil, and put food in containers
  5559.  
  5560. 14 Mildew, mould and fungus: Plants that are susceptible to mildew, such as peas, pumpkin, zucchini and
  5561. cucumber can benefit from a milk spray. Use full-cream milk and spray every few days on the leaves until the
  5562. mildew is under control. If the situation is out of control destroy the plant
  5563.  
  5564. 15 Slugs: sprinkle with salt, and take them out at night. laso Sprinkle crushed egg shells around vulnerable plants
  5565.  
  5566. 16 Spider mites:
  5567. Natural predatory mites are the best control, so having compost and mulch to encourage beneficial mites will
  5568. keep the right balance. Spiders, parasitic wasps, lady bugs and lacewings also feed on red spider mites
  5569.  
  5570. 17 Use a soap spray to eradicate these critters. Spray plants weekly until mites are gone, then monthly to stop
  5571. them from returning
  5572.  
  5573. 18 Sun Dried Vegetables: dry the vegetables in the sun at least 3 days in low humidity
  5574.  
  5575. 19 preserving food: put food in sealed dark container add vinegar or lemon juice, boil, seal(with cork or
  5576. metal)
  5577.  
  5578.  
  5579. POLINATION
  5580.  
  5581.  
  5582. is when flower dust of plants mix with other flowers, transforming the flower into a fruit.
  5583. done by : flicking (tomatos), using bees, insects, a brush(trees), stabing(vanil tree)
  5584.  
  5585.  
  5586. FOOD BY SEASONE
  5587.  
  5588. plant according to seasone
  5589. if you buy according to seasone its fresher and cheaper
  5590.  
  5591. Winter
  5592.  
  5593. Chestnuts, Grapefruit, Lemons, Oranges, Tangerines, Kale, Leeks, Radicchio, Radishes, Rutabaga, Turnips, Spring
  5594. Apricots, Avocado, Mango, Pineapple, Rhubarb, Strawberries, Artichoke, Asparagus, Carrots, Celeriac, Chives
  5595. Collards, Fava Beans, Fennel, Fiddlehead Ferns, Morels, Mustard Greens, New Potatoes, Spinach
  5596.  
  5597. Spring
  5598.  
  5599. Baby Lettuce Mixes, Sugar Snap and Snow Peas, Vidalia Onions, Watercress
  5600.  
  5601. Summer
  5602.  
  5603. Blackberries, Blueberries, Nectarines, Peaches, Plums, Raspberries, Tomatoes, Watermelon, Beets, Broccoli
  5604. Chinese Cabbage, Corn, Cucumber, Eggplant, Garlic, Green Beans, Summer Squash, Zucchini
  5605.  
  5606. Fall
  5607.  
  5608. Apples,Cranberries, Figs, Grapes, Pears, Pomegranate, Quince, Acorn Squash, Belgian Endive, Butternut Squash
  5609. Cauliflower, Celeriac, Garlic, Ginger, Mushrooms, Parsnips, Potatoes, Pumpkin, Sweet Potatoes, Swiss Chard
  5610.  
  5611.  
  5612. CLAY
  5613.  
  5614.  
  5615. pottery : mold clay, burn clay in a closed alcove with coal.
  5616. to make breaks : dry clay mix with gravel and straw
  5617.  
  5618.  
  5619. BAMBOO
  5620.  
  5621.  
  5622. bamboo grows like grass, halfen the colony and replant, needs lots of sun, heat, water
  5623.  
  5624.  
  5625. RUBBER
  5626.  
  5627.  
  5628. to make rubber mix latex from the rubber tree(see picture) with sulfare(yellow rocks found near volcanos) and heat
  5629.  
  5630.  
  5631. GROW POTATOS
  5632.  
  5633.  
  5634. this might not work with super market potatos as they are bio gliched
  5635.  
  5636. get a certified seed potato, cut pieces of it(with black little balls), plant 3 inches below ground, spread them apart.
  5637. they take 3 months to grow.
  5638.  
  5639.  
  5640. HUNTING small animals :
  5641.  
  5642.  
  5643. how to tie a noose :
  5644.  
  5645. 1 shape rope as an S
  5646. 2 smash the S
  5647. 3 take the right end of S, and coil it around the S middle to left end.
  5648. 4 take small end of rope in left end (leftover of coil), put it through the left big loop, hold it with your thumb
  5649. 5 pull rope from right side
  5650. 6 when animal is on it (lure with bait in laid noose) PULL FAST
  5651.  
  5652.  
  5653. MUSHRUMS
  5654.  
  5655.  
  5656. 1 Mushroom spores: tiny (mostly white) balls
  5657. 2 Growing medium: include such things as (hardwood) woodchips, straw, saw dust, to coffee grounds, logs,
  5658. and /or similar organic items. The medium is what your mushroom spores will grow in, consume, and turn into
  5659. edible mushrooms.aka peat moss.
  5660. 3 plastic bags (to store the growing medium in), boxes or trays to keep your mushroom growing bag in or to grow
  5661. the mushrooms in directly, watering equipment
  5662.  
  5663. Portobello mushrooms:
  5664. 1 Fill your growing tray with the well-rotted moist compost; be sure that it is not soggy.
  5665.  
  5666. 2 put 1 1/2 cups of dry spawn flakes into the compost, leave it overnight.
  5667. In the morning you can press it down with a piece of wood the temperature to be between 65 and 70 degrees
  5668. Fahrenheit
  5669.  
  5670. 3 After about two to three weeks, white webbing grow on the surface.put about a 1 Ω layer of moist peat moss
  5671. over it. And cover the damp peat moss with a few layers of newspaper. You should evenly spray the layers of
  5672. newspaper twice a day to keep moist. Do not lift the newspapers; you want the soil to be left alone for 10 days
  5673. at 55 degrees Fahrenheit
  5674.  
  5675. 4 After 10 days youíll remove the newspaper and continue to mist the soil twice daily.
  5676.  
  5677.  
  5678. FREE REFRIGERATION
  5679.  
  5680.  
  5681. bury closed container (metal is best), with water and objects to cool in shaded ground
  5682.  
  5683.  
  5684. WILDERNESS SURVIVAL
  5685.  
  5686.  
  5687. wilderness survival bag : compass, whistle, matches or lighter, insect repellent, carbon steel knife,
  5688. hat, A mini maglite torch with fresh batteries, flash light, spare batteries, water, canned foods, axe, rope
  5689. can be bught at camping shops.
  5690.  
  5691. you can use a smooth wet boulder from a river bed to sharppen your knife
  5692.  
  5693. shelter : lean to : use sharp Y shaped wood then lean woods on them to form a tent. cover them with
  5694. leaves and sticks to negate cold and rain. you can add a fire in an alcove in the middle of 4 - 7 lean tos.
  5695.  
  5696. start fire : fire saw : works best with bamboo :
  5697. cut in half, get 2 balls of bark swarf, place them in the bamboo behind a slit with a hole
  5698. the second half : sharpen on side of it (with the knife), now rub the sharp half in the slit that is to be placed
  5699. against your stamech and the ground, increase speed, blow air on swarf balls when they light.
  5700.  
  5701. The secret is to achieve the correct ratio of friction to downward pressure
  5702.  
  5703. spark : place tinder or lint (can be found in belly button) on sharp flint (sharp black shinny rock) or sharp rock
  5704. found near water streams, whack the flint with carbon steel to make sparks, place lite flint (or cotton)
  5705. in frayed rope nest and blow to make fire
  5706.  
  5707. WATER : found at : foot of steep slopes or cliffs and in the bottom of valleys and canyons (Narrow canyons)
  5708.  
  5709. Where there is water there is nearly always an abundance of lush vegetation, particularly water-loving species such as
  5710. ferns and mosses, willows alder, cattails, rushes, elder and marestail. also frogs and gators, you can also dig
  5711. in those locations for ground water
  5712.  
  5713. filter water : fill the trouser filter with cold charcoal NOT ASH or large cone of birch bark filled with charcoal
  5714. then boil water before drinking
  5715.  
  5716. fishing : in streams or shalow water : use long sharp stick, or place a square shaped cage with bait in it, on
  5717. the shalow water. the cage must have an angled entrance.
  5718.  
  5719. hunting birds : connect a 4 - 10 meter pole to a big net
  5720.  
  5721. pictures of wild eatable plants were added to the book
  5722.  
  5723. using a sling : in the middle of 2 ropes put a place for a rock, tie one end to finger hold 2nd end in hand, spin
  5724. , release.
  5725.  
  5726.  
  5727. DETECTING SPOILED FARM EGGS
  5728.  
  5729.  
  5730. if the fam eggs sink in water
  5731. smell bed inside
  5732. or have dark yellow collor inside then it is bad
  5733.  
  5734. to fry eggs it is best to use a pan with a teflon surface
  5735.  
  5736.  
  5737. GROUNDWATER
  5738.  
  5739.  
  5740. groundwater collects at hills or concaved plains with gravel, lime, and some vegatation, dig deep
  5741.  
  5742.  
  5743. CORK
  5744.  
  5745.  
  5746. extracted from the bark of oak trees (fatter then 60cm diameter)
  5747. http://www.youtube.com/watch?v=bqF3SGFigdY
  5748.  
  5749.  
  5750. PLUMBING
  5751.  
  5752.  
  5753. tools : rench, drill, hammer
  5754. unscrew or break old part, connect new part as written in its instructions (from the store)
  5755. if needed repair floor or walls by : sand + bricks + cement + plaster + ceramic tiles + water
  5756. ciling material according to break (at times from plaster will suffice)
  5757. detecting leaks : close main water valve(outside of house) open fosets to empty: if
  5758. it(the meter) runs then leak is outside the house. note the main valve MUST have a no
  5759. return valve so you don't pay for neighbor water.leaks are also detected by mold and
  5760. damp walls.
  5761. for small wall holes you can use a kit.
  5762.  
  5763. MANGA
  5764.  
  5765.  
  5766. tools : thin pencil, scaner
  5767. software : paint.net (intuitive software) free to download from :
  5768. http://www.getpaint.net/
  5769. make game maps, screens,char, draw manga
  5770.  
  5771. or ms paint
  5772. not must software : manga studio(for manga), toonboom (for anime)
  5773.  
  5774. put white paper on lcd screen and trace target with pencil, add small inner features (manga style eyes...), and
  5775. speacial desired features or stuff, scan, color with ms paint.
  5776.  
  5777.  
  5778. THE ECONOMY
  5779.  
  5780.  
  5781. value assigned paper
  5782.  
  5783. the government distributes food and money to its humans.
  5784. anything can be attributed to value, money is one of them.
  5785. now money can be traded, however its value corresponds to the stuff it is traded for.
  5786. in the past, money = hardwork and invention
  5787. presently, money = no work and idiocy, much money is given to singers, performers and such that get paid
  5788. for standing in front of the camera, sing for 4 minutes songs that give me headaches and get millions for that.
  5789. now money corresponds to a model who just walks on a catwalk, money now has no real value so its economy
  5790. has no motivation to produce, it is finished.
  5791.  
  5792. the stuck exchange also controls where money goes to, in 2011 they send it to idiocy.
  5793.  
  5794. TO STRENGTHEN THE ECONOMY :
  5795.  
  5796. abolish taxes and bank intrests
  5797. increase amount of allowence(money, food) per citizen (with minimum bureaucracy)
  5798. abolish or deminish religions
  5799. encourage negation of overpopulation
  5800. limit workers per area (facility)
  5801. every 5 - 10 years print new money that out values the old
  5802. outlaw human resources companies
  5803.  
  5804. note : in case of war you should convert your money to a foreign country currency
  5805.  
  5806. HOW TO DESTROY A COMPANY THAT ANNOYED YOU :
  5807.  
  5808. provide theire services for free, examples :
  5809.  
  5810. course company who teaches pc repair : offer free walkthroughs online
  5811. taxi who overcharged you : carpool
  5812.  
  5813. the more technical knowledge one has the less he is dependent on money.
  5814.  
  5815. alternatively you can recommend a free service
  5816.  
  5817.  
  5818. UNIVERSAL BUREAUCRACY
  5819.  
  5820.  
  5821. travel : from Ministry of Interior (Population Registry) get a passport (you need : ID, 2 passport pics application form
  5822. (can be gotten online or at the ministery of interior), next you will need a plane ticket. you will need to get a new passport
  5823. if it's pages are all stamped or after 10 years or so you will need to update it via Population Registry.
  5824. while abroad there are tourist information centers (also in hotels) that will explain from how to travel to set you for factory tours
  5825. , company data, phone numbers...
  5826. if you lose your passport abroad : report to the police and your country's console. take with you a photo copy of your passport
  5827. and 2 passport updated pictures of your self
  5828.  
  5829. if you lose your ID you get a new one also at Population Registry and take a passport if you have.
  5830. also firt report and check at the local police lost and found
  5831.  
  5832. if you lost your drivers licence report to DMV office to get a new one.
  5833.  
  5834. how to open a business : use an accountant, make shure he has references, do a backround check. you will
  5835. make shure he reports all input and output of the business money, when you sell something give a receit
  5836.  
  5837. how to buy stack : from the bank or cheaper at a brocker agency, I do not recommend buying stack.
  5838.  
  5839. how to buy an appartment : use a lawyer for this, and another lawyer to check for scams
  5840.  
  5841.  
  5842. UTORRENT :
  5843.  
  5844.  
  5845. a program used to activate torrent files (that download files like movies, ebooks...)
  5846. to create a torrent (with utorrent) you will need a tracker list to be pasted when you create a torrent : (or use default list)
  5847.  
  5848. http://open.tracker.thepiratebay.org/announce
  5849.  
  5850. http://www.torrent-downloads.to:2710/announce
  5851.  
  5852. http://denis.stalker.h3q.com:6969/announce
  5853.  
  5854. udp://denis.stalker.h3q.com:6969/announce
  5855.  
  5856. http://www.sumotracker.com/announce
  5857.  
  5858. http://tracker2.istole.it:60500/announce
  5859.  
  5860. http://inferno.demonoid.com:3407/announce
  5861.  
  5862. http://vip.tracker.thepiratebay.org/announce
  5863.  
  5864. http://track.sextorrent.to:2710/announce
  5865.  
  5866. http://tracker.deluxebits.to:3552/announce
  5867.  
  5868. http://denis.stalker.h3q.com:6969/announce
  5869.  
  5870. http://tracker.thepiratebay.org/announce
  5871.  
  5872. http://tracker.torrentbox.com:2710/announce
  5873.  
  5874. http://tracker.hexagon.cc:2710/announce
  5875.  
  5876. http://tracker.torrent.to:2710/announce
  5877.  
  5878. http://axxo.sladinki007.net:6500/announce
  5879.  
  5880. http://220.162.244.175:53880/announce
  5881.  
  5882. http://tpb.tracker.prq.to/announce
  5883.  
  5884. http://open.tracker.thepiratebay.org/announce
  5885.  
  5886. http://eztv.sladinki007.net:60500/announce
  5887.  
  5888. http://tv.tracker.prq.to/announce
  5889.  
  5890. http://218.145.160.136:8080/announce
  5891.  
  5892. http://tracker.prq.to/announce
  5893.  
  5894. http://tracker.torrenty.org:6969/announce
  5895.  
  5896. http://tpb.tracker.thepiratebay.org/announce
  5897.  
  5898. http://t.ppnow.net:2710/announce
  5899.  
  5900. http://www.torrentvideos.com:6969/announce
  5901.  
  5902. http://tracker.bitebbs.com:6969/announce
  5903.  
  5904. http://www.torrent-downloads.to:2710/announce
  5905.  
  5906. http://eztv.sladinki007.eu:60500/announce
  5907.  
  5908. http://www.ipmart-forum.com:2710/announce
  5909.  
  5910. http://tracker.ydy.com:83/announce
  5911.  
  5912. http://bt1.the9.com:6969/announce
  5913.  
  5914. http://tracker.sladinki007.net:6500/announce
  5915.  
  5916. http://tracker.ydy.com:102/announce
  5917.  
  5918. http://tracker.paradise-tracker.com:12000/announce
  5919.  
  5920. http://moviesb4time.biz/announce.php
  5921.  
  5922. http://tracker.deadfrog.us:42426/announce
  5923.  
  5924. http://mpggalaxy.mine.nu:6969/announce
  5925.  
  5926. http://www.sumotracker.org/announce
  5927.  
  5928. you can download and upload torrents go to :
  5929.  
  5930. Btjunkie
  5931. Extremenova
  5932. Fenopy
  5933. Slotorrent
  5934. Suprnova
  5935. Torrent-gate
  5936. Torrentat
  5937. Worldnova
  5938.  
  5939. Mininova
  5940. Monova
  5941. SeedPeer
  5942. Sumotorrent
  5943. Bitenova
  5944. Bttorrentmonster
  5945. Btscene
  5946. Fulldsl Registration required
  5947. h33t Registration required description required
  5948. Isohunt Registration required
  5949. Demonoid Registration required
  5950. Extratorrent Registration required
  5951. TorrentMatrix Registration required
  5952. Torrentportal Registration required
  5953. Torrentreactor.to Registration required
  5954.  
  5955.  
  5956. BICYCLE REPAIR
  5957.  
  5958.  
  5959. tools : alan keys, cable cutters, crank puler, 6" + 8" adjustable wrench, pliers or spoke wrench
  5960. air pump (also found free at gas stations), bicycle chain tool and chain pins
  5961.  
  5962. wheel truing : sit bicycle upside down, spin the wheel, if it chafs or is too close to a brake pad than : twist the spoke nipple till
  5963. that region of the wheel is centered between the brake pads
  5964.  
  5965. adjusting brakes : at the start of the brake or gear wire there is a rotatable piece, use it to adjust brake handle's press size
  5966. you perform. if the brake pads are toed in or out centwer them with a philips screw.
  5967.  
  5968. flat tire repair : use two short wide flat metal pieces to remove the tire and inner tube. remove shards from tire, place new
  5969. inner tube in tire, inflate a bit and manualy return tire with tube in it, the final tire part can be inserted with the prev two metal
  5970. pieces. the inner tube can also be fixed : locate hole by inflating tube and putting it in water, use special bicycle tire tube sticker or
  5971. seal kit. note only inner tube is to be inflated.
  5972.  
  5973. chain maintenance : once a season : open chain with chain tool by removing a pin, soak chain in degreaser or wash
  5974. in hot water (not boiling), reassemble with new pin and chain tool, use tool's back to cut new pin's access.
  5975. lube chain from inner and outer side, and inside , wipe of exess lube, use dry lube for urban areas or wet lube for
  5976. muddy area.
  5977. note if you use a new chain on an old casset problems will happen, same goes for new casset and old chain
  5978.  
  5979. handle bar : when tightening the top handle bar screw don't use too much force or it wheel detach
  5980.  
  5981. cleaning : spray with water but never at a 90 degrees angle
  5982.  
  5983.  
  5984. THE PATH FOR TELEPORT (a work in progress)
  5985.  
  5986. WHILE WAITING FOR AN OFFICIAL BATTLE IT IS GOOD TO TAKE UNCONVENTIONAL TRAINING
  5987.  
  5988.  
  5989. 1 an object is at point A and travels to point B at the same height -> the object will travel through points: ab \ 2, ab \ 2 + ab \ 4, ab\ 2 + ab\ 4 + ab \ 8 BUT not through ... + ab \ infinite *nufra
  5990. as the object does reach point B, at all points mentioned object has the same potential height energy.
  5991.  
  5992. 2 when the state of mater changes (solid to liquid to gas) energy and entropy (reverse organization lvl within mater) go up, but when gas to plasma energy goes up but entropy decreases. note most of space is plasma (*should be examples of teleport)
  5993.  
  5994. 3 now, consider the space within which the object travels, while traveling the space around it it's : energy go up (heat is absorbed) and entropy goes down (air or space compresion) just like plasma.
  5995. in accordance to the object speed which determins the smallest amount of distance traveled in the shortest time span (... + ab \ "infinite") lets call this STP
  5996.  
  5997. perhapse STP can be manipulated by the la shatalie principle (by manipulating the environment)
  5998.  
  5999. roswell new mexico for example what really went down, maybe :
  6000. a spinning plasma vortex was used at a certein point of the spin the plasma power would increase much to enable the saucer to move maybe (they also used mercury)
  6001.  
  6002.  
  6003. CLOSING NOTES
  6004.  
  6005.  
  6006. programming for "smart" phones, the companies will require you pay them in order
  6007. to make the applications work, which makes learning programming for it kind of a waste of time,
  6008. it is such disrespect to sell someone a device with blocked features (i.e "smart" phones)
  6009.  
  6010. android : use eclipse (it's like vb.net but uses java language
  6011. windows phone : XNA (install xna sdk than you program in vb.net)
  6012. iphone : xcode (works only on mac OS) or mono (C# that runs on iphone)
  6013.  
  6014. detect spy apps on smartphone : increased sms bill, screen blinking, beep noises
  6015.  
  6016. WARNINGS : the software teamviewer and other remote pc stuff can virus your computer
  6017.  
  6018.  
  6019.  
  6020. IF YOU HAVE COOL WALKTHROUGHS PLEASE SEND THEM I WILL CREDIT YOU IN THE NEXT BOOK
  6021.  
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!