Permalink
Browse files

added plugin menu options to launch freemypdf.com and crackmypdf.com …

…sites.
  • Loading branch information...
1 parent ec32cb8 commit 995fed9873827fbcc8398adca5cfe08ceb4aaabf unknown committed Jun 7, 2012
Showing with 18 additions and 5 deletions.
  1. BIN plugins/obj_browser.dll
  2. +2 −2 plugins/objbrowser/Project1.vbw
  3. +16 −3 plugins/objbrowser/plugin.cls
Binary file not shown.
@@ -1,5 +1,5 @@
-plugin = 45, 9, 813, 548,
-Form1 = 26, 10, 986, 603, Z, 40, 9, 850, 467, C
+plugin = 45, 9, 813, 548, Z
+Form1 = 26, 10, 986, 603, , 40, 9, 850, 467, C
fso = 88, 88, 749, 489,
MD5Hash = 132, 132, 723, 533, C
CMiniToolBox = 110, 110, 817, 532,
@@ -11,7 +11,7 @@ Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
-
+Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'Function RegisterPlugin(intMenu As Integer, <-- which menu to add to
' strMenuName As String, <-- menu text
@@ -23,12 +23,25 @@ Public frmMain As Object
Sub SetHost(newref As Object)
Set frmMain = newref
frmMain.RegisterPlugin 0, "Object Browser", 0
+ frmMain.RegisterPlugin 0, "FreeMyPDF Decrypter", 1
+ frmMain.RegisterPlugin 0, "CrackMyPDF Decrypter", 2
End Sub
+Private Function LaunchBrowser(ByVal url As String)
+ Call ShellExecute(0&, "open", url, vbNullString, vbNullString, vbNormalFocus)
+End Function
+
Sub StartUp(intArg As Integer)
On Error Resume Next
- Set Form1.frmMain = frmMain
- Form1.Show '1
+ Select Case intArg
+ Case 0:
+ Set Form1.frmMain = frmMain
+ Form1.Show '1
+ Case 1:
+ LaunchBrowser "http://freemypdf.com"
+ Case 2:
+ LaunchBrowser "http://crackmypdf.com"
+ End Select
End Sub

0 comments on commit 995fed9

Please sign in to comment.