Created by General Newbie Bringing you all the good stuff
Ok this Crack is so that you can use all the Characters with
KartaNarrator
First step open the master kartanarrator file
"C:\Program Files\Karta\KartaNarrator\KartaNarrator Master.ppt"
next go to Tools , then Macro ---> Visual Basic Editor
now then its good popup and ask for a passwd
I said first to myself WTF GOD DAME IT
Anyways i cracked it for your sake passwd to enter "Cooper"
thats with a Capital "C"ooper
Ok now ya got a grin on your face
Ok now then check on the VBAProject
then go to Edit and find
now look for these
Case Is = "new"
aboutform.userInfoBox.Text = "Thank you for purchasing KartaNarrator by Karta Technologies. If you enjoy using this product and would like to find out more about what Karta Technologies can offer you, please contact us at www.karta.com/kn by clicking the KartaNarrator logo on the control panel."
aboutform.Show
Case Is = "bomb"
Characters = GetProfileString("karnar", "start", "9", myText, 255)
If Characters >= 1 Then
myText2 = Left(myText, Characters)
End If
myNewDate = Date
myFormatedDate = Format(myNewDate, "mm dd yy")
myFormatedDate = CDate(myFormatedDate)
myText2 = CDate(myText2)
Dim myDifference
myDifference = CDate(myText2) - myFormatedDate
If myDifference > 0 Then
'MsgBox "Thank you for previewing KartaNarrator by Karta Technologies. You have " & myDifference & " days left to use this software. To purchase the full up version of this product, please contact Karta Technologies at www.karta.com/kn."
aboutform.userInfoBox.Text = "Thank you for previewing KartaNarrator by Karta Technologies. You have " & myDifference & " days left to use this software. To purchase the full up version of this product, please contact Karta Technologies at www.karta.com/kn" & Chr(13) & "or call 1-800-72KARTA."
aboutform.Show
Else
aboutform.userInfoBox.Text = "The time has expired on this demo version of KartaNarrator. To purchase the full up version of this product, please contact Karta Technologies at www.karta.com/kn or call " & Chr(13) & "1-800-72KARTA."
aboutform.Show
End
End If
End Select
Then Then Edit them to look like this
Case Is = "bomb"
aboutform.userInfoBox.Text = "Thank you for purchasing KartaNarrator by Karta Technologies. If you enjoy using this product and would like to find out more about what Karta Technologies can offer you, please contact us at www.karta.com/kn by clicking the KartaNarrator logo on the control panel."
aboutform.Show
Case Is = "new"
Characters = GetProfileString("karnar", "start", "9", myText, 255)
If Characters >= 1 Then
myText2 = Left(myText, Characters)
End If
myNewDate = Date
myFormatedDate = Format(myNewDate, "mm dd yy")
myFormatedDate = CDate(myFormatedDate)
myText2 = CDate(myText2)
Dim myDifference
myDifference = CDate(myText2) - myFormatedDate
If myDifference > 0 Then
'MsgBox "Thank you for previewing KartaNarrator by Karta Technologies. You have " & myDifference & " days left to use this software. To purchase the full up version of this product, please contact Karta Technologies at www.karta.com/kn."
aboutform.userInfoBox.Text = "Thank you for previewing KartaNarrator by Karta Technologies. You have " & myDifference & " days left to use this software. To purchase the full up version of this product, please contact Karta Technologies at www.karta.com/kn" & Chr(13) & "or call 1-800-72KARTA."
aboutform.Show
Else
aboutform.userInfoBox.Text = "The time has expired on this demo version of KartaNarrator. To purchase the full up version of this product, please contact Karta Technologies at www.karta.com/kn or call " & Chr(13) & "1-800-72KARTA."
aboutform.Show
End
End If
End Select