2008-10-31

MS Sql Dev Studio & EditPlus...

I've configured external tools to include my favorite editors -- when I want to look at a 'collapsible' version of the script I launch EditPlus. Then I can expand all/collapse all (or portions) of the script for easier review/managment. For really long SQL scripts -- I've found this invaluable. If there is a 'code folding' option within MS SQL Server Mgmt Studio -- I have yet to find it.

2008-10-27

ABC October-27-2008

Psa27,Psa57,Psa87,Psa117,Psa147,Pro27

Analysis:

The promise of God is to look after you. Best Verse(s):

Psa27.14 Wait for the Lord; be strong, and let your heart take courage; wait for the Lord!

Psa57.2 I cry out to God Most High, to God who fulfills his purpose for me.

Contract/Prayer:

God hears... But, I must call.

2008-10-26

Fantasia

Play

Chrome_Incognito.js

If you haven't updated to 0.3.154.9 this script may still be of use. But, with that version you can now append: ...chrome.exe" --incognito to your Google Chrome shortcut and it will start in Incognito mode by default.

Save snippet below to a file (call it something like Chrome_Incognito.js) in 'My Documents' folder or the desktop. Double-click this file, & it opens a chrome browser window, then, an incognito window, then, shuts first window...leaving you "incognito".

If you have trouble saving code snippits see notes here.


//Chrome_Incognito.js - start chrome incognito
var oSh=new ActiveXObject("WScript.Shell");
var liWait=1500;  //wait ms (double on older pc)
var Chrome_HKLM="HKLM\\"+
  "SOFTWARE\\"+
  "Classes\\"+
  "ChromeHTML\\"+
  "shell\\"+
  "open\\"+
  "command\\";
var Chrome=oSh.RegRead(Chrome_HKLM);
oSh.Run(Chrome); //start chrome
WScript.Sleep(liWait);
oSh.Sendkeys("^+N"); //start new incognito window
WScript.Sleep(liWait);
oSh.Sendkeys("%{Tab}"); //go previous(first) browser window
WScript.Sleep(liWait);
oSh.Sendkeys("%{F4}"); //close first browser window


...here it is in .vbs (VBScript):
'Chrome_Incognito.vbs - start chrome incognito
Set oSh=CreateObject("WScript.Shell")
Dim Chrome_HKLM
Chrome_HKLM="HKLM\" & _
  "SOFTWARE\" & _
  "Classes\" & _
  "ChromeHTML\" & _
  "shell\" & _
  "open\" & _
  "command\"
Dim Chrome
Chrome=oSh.RegRead(Chrome_HKLM)
oSh.Run Chrome
ccSleep 1
oSh.Sendkeys "^+N"
ccSleep 1
oSh.Sendkeys "%{Tab}"
ccSleep 1
oSh.Sendkeys "%{F4}"
WScript.Quit
'-
Sub ccSleep(seconds)
  set oShell = CreateObject("Wscript.Shell")
  cmd = "%COMSPEC% /c ping -n " & 1 + seconds & " 127.0.0.1>nul"
  oShell.Run cmd,0,1
End Sub
'-this ccSleep I got from : http://www.mvps.org/scripting/rube/index.htm
Notes:

The saved file icon should display as fancy-scroll "S". If not -- the editor may be "helping" by automatically adding(& hiding) the ".txt" extention. To get around save in double-quotes: "Chrome_Incognito.js" -- and the name with this extention should "stick".

If double-clicking the file opens it in the editor -- script "open" is interpreting as "open with editor" -- to get around: ctrl+shift+click to obtain a context menu that will have an "Open with..." option. Choose this - then choose: "Microsoft (R) Windows Based Script" (and check "always use..." -- if you prefer it).

In these scripts I'd originally specified Run("Chrome.exe") - didn't always work. I tried adding instructions to check properties/copy settings from Google Chrome launch short-cut, but, again, found this didn't work for some users.

These scripts read system registry to determine Chrome location, and, hopefully, remove implementation differences and need for manual edit.

P.s. I've seen notes on the internet of starting chrome with '--incognito' startup parm -- but, that doesn't appear to work (at least with Google Chrome version 0.2.149.30 - does starting with 0.3.154.9).

P.s.s. If brave - try putting the snippet below at bottom of the first .js script from above.

This combines "Incognito" and using Google servers as a proxy to hide IP address. Having IP address logged I find an annoyance. Some software programs assume things and take unwanted actions based on returning IP address.

P.s.s.s.  These scripts and techniques work for me. If you have concerns about other "research" going on - the PC can be placed in in a public area to encourage safe (vs. anonymous) browsing habits.
var sURL=
"http://translate.google.com/"+
"translate"+
"?ie=UTF-8"+
"&sl=es"+
"&tl=en"+
"&hl=en"+
"&u="+
"http://www.anonymouse.org";
WScript.Sleep(liWait);
oSh.Sendkeys("{F6}");//go addressbar
WScript.Sleep(liWait);
oSh.SendKeys(sURL+"{Enter}");//supply "google proxy"
WScript.Sleep(liWait);

Some have asked if there's a way to check if Chrome is already running. To do so --is more complicated see version #2

-Thanks/regards

2008-10-22

GoogleProxy

This works well - but, I think Google's closed "english-to-english" --works though, if you do "Spanish-to-English".

Here's link to the original hack. There's a crucial note there -- this doesn't hide your IP address.

Chances are -- if you have a linksys or other box between your computer and the internet your real IP address is hidden anyway, helping to prevent hackers from directly attacking your computer. It does this be creating a bank of IP addresses that are one hop away from your computer. I've changed the translated link so that it will hide that IP address. This, hopefully, prevents a site from tracking your pseudo-unique-IP's return and using it against you.

Check_Remote.au3

rem -
rem Place in StartUp folder - it will check to see if you're
rem onsite or remote if remote it will start the  VPN dialer
rem with your fob-prefix...
rem -
rem requires AutoIt
rem -
@echo off
echo .>remote.txt
ping yourserver>>remote.txt
rem  ^-a server on your systems...
for /f %%i in ('find "timed out"^>remote.txt /c') do if not '0'=='%%i' goto offsite
goto xit
:offsite
echo Dim $fobpfx=RegRead('HKCU\Software\check_remote','^$fobpfx')>>VPN.au3
echo If $fobpfx='' Then >>VPN.au3
echo   $fobpfx=InputBox(@scriptname,'^$fobpfx','9999','*')>>VPN.au3
echo   RegWrite('HKCU\Software\check_remote','$fobpfx','REG_SZ',$fobpfx)>>VPN.au3
echo EndIf>>VPN.au3
echo Run('"C:\Program Files\Cisco Systems\VPN Client\ipsecdialer.exe"')>>VPN.au3
echo WinWaitActive('status:')>>VPN.au3
echo Send('{ctrlDown}o{ctrlUp}')>>VPN.au3
echo WinWaitActive('VPN Client')>>VPN.au3
echo Send($fobpfx)>>VPN.au3
call VPN.au3
goto xit
:xit
if exist remote.txt del remote.txt
if exist vpn.au3 del vpn.au3

2008-10-20

ABC October-20-2008

Joh 6.25-40;1Pe 3.8-12;Son 4.8-16;Jer 51
Analysis:
Jesus offers real satisfaction.
The Lord hears when we call.
Best Verse(s):
Joh6.35 Jesus said to them, “I am the bread of life; whoever comes to me shall not hunger, and whoever believes in me shall never thirst.
1Pe3.12 For the eyes of the Lord are on the righteous, and his ears are open to their prayer. But the face of the Lord is against those who do evil.”
Contract/Prayer:
Lord, let me be happy in you today.
I need your help today. Thank you for looking on/loving me.

New modes for new browsers...

Both the Chrome and IE8 browser's (both "beta") have new "private" mode. Chrome's is called "Incognito" - IE's is called "InPrivate". I have been using them a lot and wanted a quicker way to invoke each browser in those modes. Created AutoIt scripts for that purpose:
Chrome_Incognito.au3
IE_In_Private.au3

2008-10-19

Bible Readings

If you use the Bethlehem Baptist Church Bible Reading Plan - here are the readings in a perpetual calendar: http://myspiritualgrowthplan.blogspot.com/search/label/Scripture%20Reading

This is the same link as a 'tiny' url:
http://tinyurl.com/aksowz

2008-10-18

Browser - AutoFill

Save snippet as AutoFill.HTA - then fill out your own specifics in the javascript.

If you create a short-cut one with startup '...AutoFill.HTA" Work' and
one with startup '...AutoFill.HTA" Home' -- it will then start the app with
those preferences.
<html>
<head>
<hta:application
 icon='http://www.blogger.com/favicon.ico'
 id='oAutoFill'
 applicationname='AutoFill'
 >
<title>
AutoFill
</title>
</head>
<body
 onload='AutoFill_OnLoad()'
>
<div
 style="font-family: verdana; font-size: 8pt;"
 >
 I come here and drag/drop into the browser <br>
 preference/setup pages.
</div>
<form 
 name='frmFill'
 >
 <table 
  style="font-family: verdana; font-size: 8pt;"
  >
  <tr>
   <td 
    style='font-family: verdana;font-size: 8pt;'
    >
    T<u>y</u>pe
   </td>
   <td
    style='font-family: verdana;font-size: 8pt;'
    >
    <select 
     id='lstType' 
     onchange='lstType_Change()'
     accesskey='y'
     >
     <option 
      selected 
      value='...'
      >...
     <option 
      value='Home'
      >Home
     <option 
      value='Work'
      >Work
    </select>
   </td>
  </tr>
  <tr>
   <td
    style='font-type:verdana;font-size:12'
    >    
    <u>F</u>irst  
   </td>
   <td>
    <input 
     type='text' 
     id='txtFirst' 
     value='Michael' 
     style='width:105px'
     accesskey='F'
     />
   </td>
   <td
    style='font-type:verdana;font-size:12'
    >
    <u>L</u>ast  
   </td>
   <td>
    <input 
     type='text' 
     id='txtLast' 
     value='Bee'  
     style='width:105px'
     accesskey='L'
     />
   </td>
  </tr>
  <tr>
   <td
    style='font-type:verdana;font-size:12'
    >
    <U>E</u>-mail  
   </td>
   <td>
    <input 
     type='text' 
     id='txtEMail'     
     style='width:105px'
     accesskey='e'
     />
   </td>
   <td
    style='font-type:verdana;font-size:12'
    ><u>H</u>ome page
   </td>
   <td>
    <input 
     type='text' 
     id='txtHomepage' 
     style='width:105px'
     accesskey='h'
     />
   </td>
  </tr>
  <tr>
   <td  
    style='font-type:verdana;font-size:12'
    >
    <u>T</u>elephone 
   </td>
   <td>
    <input 
     type='text' 
     id='txtTelephone' 
     style='width:105px'
     accesskey='t'
     />
   </td>
   <td     
    style='font-type:verdana;font-size:12'
    >
    <u>M</u>obile  
   </td>
   <td>
    <input 
     type='text' 
     id='txtMobile' 
     style='width:105px'
     accesskey='m'
    />
   </td>
  </tr>
  <tr>
   <td     
    style='font-type:verdana;font-size:12'
    >
    <u>A</u>ddress  
   </td>
   <td colspan=3>
    <input 
     type='text' 
     id='txtAddr' 
     style='width:287px'
     accesskey='a'
     />
   </td>
  </tr>
  <tr>
   <td     
    style='font-type:verdana;font-size:12'
    >
    <U>C</u>ity  
   </td>
   <td>
    <input 
     type='text' 
     id='txtCity' 
     style='width:105px'
     accesskey='c'
     />
   </td>
   <td     
    style='font-type:verdana;font-size:12'
    >
    <U>R</u>egion/State
   </td>
   <td>
    <input 
     type='text' 
     id='txtRegSt' 
     style='width:105px'
     accesskey='r'
    />
   </td>
  </tr>
  <td     
   style='font-type:verdana;font-size:12'
   >
   <u>P</u>ostal Code 
  </td>
  <td>
   <input 
    type='text' 
    id='txtPostalCode' 
    style='width:105px'
    accesskey='p'
   >
  </td>
   <td     
    style='font-type:verdana;font-size:12'
    >
    C<u>o</u>untry  
   </td>
   <td>
    <input 
     type='text' 
     id='txtCountry' 
     style='width:105px'
     accesskey='o'
     />
   </td>
  </tr>
 </table>
</form>
<script>
function lstType_Change()
{
//alert(frmFill.lstType.value);
var lChoice=frmFill.lstType.value;
switch (lChoice)
{
case '...':
{
frmFill.txtEMail.value='';
frmFill.txtHomepage.value='';
frmFill.txtTelephone.value='';
frmFill.txtMobile.value='';
frmFill.txtAddr.value='';
frmFill.txtCity.value='';
frmFill.txtRegSt.value='';
frmFill.txtPostalCode.value='';
frmFill.txtCountry.value='';
};
break;
case 'Home':
{
frmFill.txtEMail.value='home_email_pfx'+
'@home_email_sfx';
frmFill.txtHomepage.value='home_homepage_pfx'+
'home_homepage_sfx';
frmFill.txtTelephone.value='home_phn';
frmFill.txtMobile.value='home_mobile_phn';
frmFill.txtAddr.value='home_addr';
frmFill.txtCity.value='home_city';
frmFill.txtRegSt.value='home_regst';
frmFill.txtPostalCode.value='home_postal';
frmFill.txtCountry.value='home_country';
};
break;
case 'Work':
{
frmFill.txtEMail.value='work_email_pfx'+
'@work_email_sfx';
frmFill.txtHomepage.value='work_homepage_pfx'+
'work_homepage_sfx';
frmFill.txtTelephone.value='work_phn';
frmFill.txtMobile.value='work_mobile_phn';
frmFill.txtAddr.value='work_addr';
frmFill.txtCity.value='work_city';
frmFill.txtRegSt.value='work_regst';
frmFill.txtPostalCode.value='work_postal';
frmFill.txtCountry.value='work_country';
};
break;
};
window.document.title='AutoFill '+'['+frmFill.lstType.value+']';
}
function AutoFill_OnLoad()
{
 window.resizeTo(465, 311);
 window.moveTo(305, 133);
 var tra_st=oAutoFill.commandLine.indexOf('.HTA"');
 tra_st=tra_st+6;
 var tra_end=tra_st+4;
 var tra_chars=oAutoFill.commandLine.slice(tra_st,tra_end);
 switch (tra_chars)
 {
 case 'Home':
  {
   frmFill.lstType.value='Home';
   break;
  };

 case 'Work':
  {
   frmFill.lstType.value='Work';
   break;
  };
 };
 lstType_Change();
}
</script>

2008-10-08

ABC October-08-2008

Joh 3.1-15;Jam 4.1-10;Ecc 6;Jer 16-18 Analysis: John ~ A new way of life. A new life. James ~ cause of disputes, selfishness, self-interest. Draw near to God - He will draw near to you. Ecclesiastes ~ The world's promises are empty. Goods, fame, family - they'll all go. God alone is worth making your treasure. Jeremiah ~ God judges Judah Best Verse(s): John 3.13-15 No one has ascended into heaven except he who descended from heaven, the Son of Man. And as Moses lifted up the serpent in the wilderness, so must the Son of Man be lifted up, that whoever believes in him may have eternal life. James 4.6-8 But he gives more grace. Therefore it says, “God opposes the proud, but gives grace to the humble.” Submit yourselves therefore to God. Resist the devil, and he will flee from you. Draw near to God, and he will draw near to you. Cleanse your hands, you sinners, and purify your hearts, you double-minded. Ecclesiastes 6.9 Better is the sight of hte eyes than th ewandering of the appetite: this also is a vanity and a striving after the wind. Jeremiah 17.9 The hear is deceitful above all thins, and desperately sick; who can understand it? Contract/Prayer: Please help me to look to you, Jesus; help me to make you my treasure. I cannot find the way without you. Turn the eyes of my heart to your word & Yourself.

2008-10-07

YouTube - North by Northwest

Play Notes: -Hitchcock cameo: he's the one that doesn't quite make it on the bus in one scene. -Last segment (of course, the most exciting) did not play well for me (hope it does for you).

YouTube - An American InParis

Play this has to be one of the best "feel good" movies ever.

ABC October-07-2008

Joh 2.12-25;Jam 3.13-18;Ecc 5;Jer 14-15 Analysis: John~Jesus spoke in riddles / parables because he knew the pharsisees _wouldn't_ understand - and the disciples (only) later(?). James~Working for right vs. working for ourselves. Do do the right thing rather than getting your slice of the pie. Ecclesiastes~find satisfaction in the work itself. Honor God. Keep your vows. Jeremiah~...if you wander GO BACK. If you have something to say let it be WORTHWHILE. Best Verse(s): John~2.21 Jesus on his part did not entrust himself to them, because he knew all people and needed no one to bear witness about man, for he himself knew what was in man. James~meekness of wisdom. ... 3.17 pure, then peaceable, gentle, open to reason, full of mercy and good fruits, impartial and sincere. And a harvest of righteousness is sown in peace by those who make peace. Ecclesiastes~5.18 Behold, what I have seen to be good and fitting is to eat and drink and find enjoyment in all the toil with which one toils under the sun the few days of his life that God has given him, for this is his lot. Jeremiah~15.19 Therefore thus says the Lord: “If you return, I will restore you, and you shall stand before me. If you utter what is precious, and not what is worthless, you shall be as my mouth. They shall turn to you, but you shall not turn to them. Contract/Prayer: God your judgement comes from authority and sacrifice. Help me remember that in troubles. God help me to be honest and have integrity today. Help me enjoy this day. God you have me rub shoulders with others every day. Let me not be a misanthrope but a lover of others.

2008-10-06

ABC October-06-2009

Joh 2.1-11;Jam 3.1-12;Ecc 4;Jer 12-13 Analysis: John~Jesus 1st miracle was to bring happiness at a wedding. Interesting/noteworthy that John says "on the third day" - joy in the resurrection to come? James~the tongue is to be tamed. Caution to teacher's and would-be-teachers is a prelude. It makes sense from this to be prepared in what you teach (if you do teach). Ecclesiastes~two are better than one. Jeremiah~God promises to Judge and to have mercy. Best Verse(s): Ecclesiastes~ Two are better than one, because they have a good reward for their toil. For if they fall, one will lift up his fellow. But woe to him who is alone when he falls and has not another to lift him up! Again, if two lie together, they keep warm, but how can one keep warm alone? And though a man might prevail against one who is alone, two will withstand him—a threefold cord is not quickly broken. Jeremiah~I will again have compassion on them, and I will bring them again each to his heritage and each to his land. And it shall come to pass, if they will diligently learn the ways of my people, to swear by my name, ‘As the Lord lives,’ even as they taught my people to swear by Baal, then they shall be built up in the midst of my people. But if any nation will not listen, then I will utterly pluck it up and destroy it, declares the Lord.” Contract/Prayer: Thank you, and praise You, Lord. You overcome sin and death. Help me, Lord. Let me speak only after listening. Help me to study and mature in your Word. Thank you for family and Christian friends. Thank you for your promise of Mercy. Help us as a nation to seek you.

2008-10-02

ABC October-02-2008

Joh 1.19-28;Jam 1.12-18;Ecc 2.1-16;Jer 3-4; Analysis: John 1.26~Jesus not known by those among whome He walked James 1.17~God's gifts are _good_ Ecclesiastes 2.11~human accomplishment is worthless(_without eternal context_) Jeremiah~God longs for fidelity and honesty Best verse: James 1.17 Every good gift and every perfect gift is from above, coming down from the Father of lights with whom there is no variation or shadow due to change. Contract/prayer: Thank you for finding us. Walk with us today.

LibriVox's New Releases

Blog Archive