Results 1 to 10 of 10

Thread: vb6 question

  1. #1

    Thread Starter
    New Member
    Join Date
    Jan 2015
    Posts
    4

    vb6 question

    Hello everybody,i need of little help i need to know

    how can i create winrar sfx archive with vb6

  2. #2
    VB-aholic & Lovin' It LaVolpe's Avatar
    Join Date
    Oct 2007
    Location
    Beside Waldo
    Posts
    19,541

    Re: vb6 question

    Welcome to the forums

    While waiting on a response, suggest searching the forum for those keywords: winrar sfx

    Additionally, when you have a few moments to spare, click on the "Hitchhikers Guide" in my signature below. Worth the read for all newcomers.
    Insomnia is just a byproduct of, "It can't be done"

    Classics Enthusiast? Here's my 1969 Mustang Mach I Fastback. Her sister '67 Coupe has been adopted

    Newbie? Novice? Bored? Spend a few minutes browsing the FAQ section of the forum.
    Read the HitchHiker's Guide to Getting Help on the Forums.
    Here is the list of TAGs you can use to format your posts
    Here are VB6 Help Files online


    {Alpha Image Control} {Memory Leak FAQ} {Unicode Open/Save Dialog} {Resource Image Viewer/Extractor}
    {VB and DPI Tutorial} {Manifest Creator} {UserControl Button Template} {stdPicture Render Usage}

  3. #3

    Thread Starter
    New Member
    Join Date
    Jan 2015
    Posts
    4

    Re: vb6 question

    Quote Originally Posted by LaVolpe View Post
    Welcome to the forums

    While waiting on a response, suggest searching the forum for those keywords: winrar sfx

    Additionally, when you have a few moments to spare, click on the "Hitchhikers Guide" in my signature below. Worth the read for all newcomers.


    thanks for answer i have this code but this is on autoit i need to vb6

    $Filepartfullname = StringTrimLeft($search, StringInStr($search, "\", 2, -1))
    $batcall = BinaryToString(_batdecode())
    $batcall = StringReplace($batcall,"compile.bat",$shortnamebatchc)
    $batcall = StringReplace($batcall,"exename",$ramdomexe&".exe")
    $batcall = StringReplace($batcall,"part1",$Filepartfullname)
    FileWrite($short&$ramdomcomp,$batcall)
    $writewinrar = _Base64String(True,@TempDir)
    $writeconfdef = _Base64Stringwmz(True,@TempDir)
    $configfile = BinaryToString(_Base64Stringconfig())
    $configfile = StringReplace($configfile," pathtowrite","%temp%")
    $configfile = StringReplace($configfile,"puts.vbs",$randomname)
    DirCreate(@TempDir&"\bumpconf")
    $configpath = @TempDir&"\bumpconf\sfx.conf"
    FileWrite($configpath,$configfile)
    Local $winrarlocation = @TempDir&"\"
    Local $sWinRAR = FileGetShortName($winrarlocation)
    Local $iconata = FileGetShortName($ReadIcon)
    Local $names = $exename
    Local $configpathshort = FileGetShortName($configpath)
    Local $dirrr = $short&"*"
    Local $vars = FileGetShortName($FHANDLEexe)
    FileDelete($vars)
    $trimdirto = FileGetShortName(GetDir($FHANDLEexe))
    FileChangeDir ($trimdirto)
    WinSetState("[CLASS:WinRarWindow]", "", @SW_HIDE)
    RunWait($sWinRAR & 'win a -sfx -r -iicon'&$iconata&' -z'&$configpathshort&' '&$names&' -ep1 '&$dirrr&' '&$vars&"\*"&'',"",@SW_HIDE)
    WinSetState("[CLASS:WinRarWindow]", "", @SW_HIDE)
    GUICtrlSetData($Progress1, 100)

  4. #4
    Hyperactive Member
    Join Date
    Oct 2013
    Posts
    389

    Re: vb6 question

    Not familiar with auto-it, except for a few basic scripts i did with it years ago, but from reading it,
    it seems like you're using winrar as a dependency, so why not use its command-line parameters ?

    allow me to refer you to these two links which i believe will help you.

    http://stackoverflow.com/questions/5...m-a-batch-file
    and
    http://comptb.cects.com/using-the-wi...ls-in-windows/

    p.s
    Code:
    Shell (FilePath)
    is the command you'll be looking for.

  5. #5

    Thread Starter
    New Member
    Join Date
    Jan 2015
    Posts
    4

    Re: vb6 question

    thank you i will try

  6. #6
    Frenzied Member
    Join Date
    Apr 2012
    Posts
    1,271

    Re: vb6 question

    Happy codding!
    If you don't know where you're going, any road will take you there...

    My VB6 love-children: Vee-Hive and Vee-Launcher

  7. #7
    PowerPoster SamOscarBrown's Avatar
    Join Date
    Aug 2012
    Location
    NC, USA
    Posts
    9,535

    Re: vb6 question

    Quote Originally Posted by ColinE66 View Post
    Happy codding!
    OR....maybe she is a resident of Codding, PA? ?????

  8. #8
    Frenzied Member
    Join Date
    Apr 2012
    Posts
    1,271

    Re: vb6 question

    Quote Originally Posted by SamOscarBrown View Post
    OR....maybe she is a resident of Codding, PA? ?????
    Nah. She's definitely a codder...
    If you don't know where you're going, any road will take you there...

    My VB6 love-children: Vee-Hive and Vee-Launcher

  9. #9
    PowerPoster SamOscarBrown's Avatar
    Join Date
    Aug 2012
    Location
    NC, USA
    Posts
    9,535

    Re: vb6 question

    :-)...probbabbly.

  10. #10

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width